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Ном/ [0 
Use This Book 


Computing with Timex/Sinclair BASIC provides both enter- 
tainment and education for your entire family. Тће games and 
utility programs in this book will run on Timex/Sinclair ma- 
chines with 16K of random access memory. All the programs 
have been fully tested, and once you enter them into your 
computer they will provide hours of enjoyment. Whether you 
challenge the computer to a game of Backgammon, discuss 
your problems with the computer psychiatrist Eliza, or com- 
pile an address book, you will find your Timex/Sinclair an 
intelligent ally, opponent, and assistant. 

Even if you are already experienced in using the Timex/ 
Sinclair computers, you should take a few minutes to read the 
following tips. Timex/Sinclair computers are remarkably pow- 
erful for machines which are also so inexpensive, but to use 
them to their best advantage you must be familiar with their 
unique dialect of BASIC, perhaps the most widely used com- 
puter language in the world, and you must be familiar with 
the peculiarities of the Т/5 keyboard, which is organized to 
make keyboarding as painless and efficient as possible. 

A brief reading of the points covered here along with the 
instructions that appear in the Timex User Мапиа! that came 
along with your computer should enable you to set up the 
computer and enter the first program within an hour or so. 


Setting Up Your System 


The Timex User Manual contains straightforward instructions 
for setting up your computer. We have found that a few ad- 
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ditional adjustments to the setup can make your system even 
easier to use. 


1; 


~ 


The cable connecting your computer to the TV. For 
the most part the T/S computers produce a TV image 
with black characters on a white background, so the 
screen is quite bright. With the 4-foot cable supplied 
by the manufacturer to connect the computer and the 
TV, we found ourselves sitting almost on top of the 
screen, and after a few hours of work we were suf- 
fering from eye strain and a bit of lightheadedness. 
So we recommend that you replace the 4-foot cable 
with a 6- or 8-foot cable. Most electronics or televi- 
sion and radio stores will have such cables in stock, 
and one shouldn't cost you more than a few dollars. 
With a longer cable, we were able to move the TV 
to the far end of a table. In such a setup, we still 
found the image on the screen to be perfectly reada- 
ble, and it was certainly more restful for our eyes. 


The channel switch on the bottom of the computer. 
At times when we’ve been programming or playing a 
game on the Timex/Sinclair, we’ve slid the computer 
a few inches across the table to let another person 
take the controls. Sometimes when we've done this, 
we've completely lost the image on the screen. A little 
investigative work turned up the answer: the channel- 
selection switch on the bottom of the computer is 
supposed to be recessed into the machine, but on some 
of the computers we've dealt with it is not recessed 
enough. As a result, sliding the computer across a 
surface can throw the switch from one channel to the 
other, and there will be a temporary loss of the pic- 
ture. This is not something to worry about. By simply 
flicking the switch back to the proper channel posi- 
tion, you should find that the image comes back onto 
the screen with no loss of whatever has been stored 
in memory. If this problem plagues your machine, 
you might want to consider ““locking”” the channel 
selection switch in place with a piece of tape. 
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We have also found that the manufacturer’s ad- 
vice about whether to use channel 2 or channel 3 does 
not always seem to be the best advice. Of the three 
machines we tested, two worked best on channel 3 
and the third worked best on channel 2. Since all three 
machines were tested in New York City, where the 
local CBS-TV affiliate broadcasts on channel 2, we 
assumed that channel 3 would work best for us, but 
this was not always the case. We can't explain this 
fact, but we want you to be aware of it. 


Setting up your tape recorder. In saving programs and 
loading programs, we've found it best to have the 
““volume”” control of the tape recorder at or near its 
loudest setting, as mentioned in the Timex User Man- 
ual. Similarly, we’ve had the best results in loading 
and saving when the ““tone”” control is at its highest 
setting—toward ““treble”” rather than ‘‘bass.’’ Fur- 
thermore, if your tape recorder has both ““monaural”” 
and ““stereo”” modes, use the ““monaural”” setting. If 
a stereo setting 15 all that 15 available, you should turn 
the ““balance”” control all the way to the left or all the 
way to the right and leave it there for both loading 
from and saving to the tape recorder. 

The Timex User Manual also contains a very 
clever suggestion about how to store programs in such 
a way that they are easy to find: see page 14 of the 
manual for instructions on how to insert a voice an- 
nouncement preceding each of the programs you store 
on tape. Be sure, however, to disconnect the micro- 
phone before you save the actual program from the 
computer to the tape. 

Three further points: First, we’ve found that it 
pays to use a fairly high quality recording tape. Sec- 
ond, it is a good idea to make a backup copy of each 
program, preferably on a completely different cas- 
sette. And third, you should record programs only on 
one side of any tape, since if both sides are used, the 
signals on one side may interfere with those on the 
other. 
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4. 


Perhaps the greatest shortcoming of the Timex/Sin- 
clair is its relatively small keyboard. For maximum 
comfort, convenience, and accuracy of keyboarding, 
keep the keyboard well lighted and (as we have al- 
ready mentioned) a good distance away from that 
glaring screen. With a few minutes of practice, you'll 
find that the keyboard 15 indeed manageable. 


Keyboarding Hints 


If you haven't already had some experience with the Т/5 key- 
board, you should read this section carefully and keep the 
keyboard close by for reference. 


1. 


When you аге typing in the number 1, be sure to hit 
the 1 key and not the L key. Тће 1 key 15 located on 
the top row of the keyboard at the extreme left. 


Don't confuse the number О with the letter О. In pro- 
gram listings in this book and on the screen of your 
TV, you'll notice that zero is printed with a slash 
through it, like this: 0. 


The letter I and the number 1 may also look alike to 
you as you read the program listings, but you must 
be sure to distinguish between them. The letter I is 
shown in the programs this way: l. The number 1 is 
listed in the programs this way: 1. 


In some of the programs we make use of an under- 
score (. ) to indicate that you should leave a space 
(by hitting the SPACE key). Do not attempt to key in 
the underscore, because you will not find it on the T/S 
keyboard. We make use of it only within quotation marks 
in the program listing because it is only within quotation 
marks that inserting the proper number of spaces may 
be crucial. 


All words printed in BOLDFACE in the program 
listings are called keywords. Each of these words is 
accessed by a single keystroke. If you try to type in 
one of these words letter-by-letter, the computer will 
either not accept them or will not run the program 
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correctly. So whenever you see a boldface word in a 
listing, be sure to access it with a single keystroke. 


6. All of the following mathematical symbols are also 
accessed with a single keystroke: 

< > which means ““not equal to’’ and is found on 
the T key. 

> = which means ““greater than or equal to” and 
is found on the Y key. 

«= which means ““less than or equal to”” and is 
found on the R key. 


7. Keep in mind that any given key on the T/S keyboard 
may have as many as five meanings, depending on 
the mode you are in. The mode is indicated by a 
cursor, as follows: 

which indicates the keyword mode. When you 
are in this mode, you will access the word 
printed in white above the key. 

which indicates the letter mode. When you are 
in this mode, you will access the ““ргітагу” 
(dark black) character on the key. 

which indicates the function mode. When you 
are in this mode, you will access the word 
printed in white below the key. 

which indicates the graphics mode. If you hit 
a key in this mode, the ““primary”” (dark black) 
character will appear in inverse video. (This 
means that the character will appear on the 
screen as a white number or letter printed in a 
small black box.) If you hold down the SHIFT 
key while in the graphics mode, some of the 
keys will give you the small graphics symbols 
shown at the lower right corner of the key. 


Saving Programs on a Таре Recorder 


After you've keyed in a program, checked it for accuracy, and 
decided you want to keep it handy, you can save it on magnetic 
tape in much the same way that you ordinarily save a piece 
of music by recording it on your tape recorder. All you have 
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to do is to type the word SAVE and decide on a name for 
your particular program. If you choose the name SUB HUNT, 
for example, you would type into your computer: 


SAVE "SUB HUNT” 


At this point you should start the recorder in its ““recording”” 
mode. Then hit the ENTER key, and the program (or more 
accurately, a copy of your program, since the program will 
still reside in the memory of the computer) will be recorded 
on the tape. You will know when the recording is complete 
by the termination code 0/0 which will appear at the bottom 
left-hand corner of the screen. At that point you may turn off 
the recorder. 


Loading a Program 

In order to load a program from magnetic tape into the com- 
puter, type in NEW followed by the ENTER key. Now you 
type either: 


LOAD "SUB HUNT" 


which searches for and loads the program called SUB HUNT, 
Or: 


LOAD гт 1! 


which searches for and loads the first complete program found 
on the tape. 


Important Reminders 


1. Make a note of the precise name of the program you 
are storing, including any spaces between words that 
may exist in the name. If you save a program called 
SUB HUNT on tape and then later try to load a pro- 
gram called SUBHUNT from the same tape, the com- 
puter will not be able to find the program. 


2. We have found that for either loading or saving a 
program, a tape recorder in the ““mono”” (rather than 
““stereo””) mode works best. If your tape recorder is 
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stereo only, you should turn the ““balance”” control 
all the way left or all the way right. In addition, you 
should leave the ““volume”” control quite high, per- 
haps three-quarters of the way to full volume; the 
“tone”” control should likewise be at its highest (tre- 
ble) setting. 
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GAMES 


ba 


Backgammon 


This program allows the computer to challenge you to single 
games of Backgammon. The program insists on fully legal 
moves and will reject any attempts at cheating. 


“---Т51000 MOVES 


сезін 
PIOUE = 
аз 

in: 

ES 

i =Ë š 





t—-VTOUR MOVES 


The board display is limited a little by the сотршег 5 
graphics capability. For example, the normally triangular 
““points”” are represented by rectangles. The individual pieces 
are not shown. Instead, the number of pieces on each point is 
shown as the numbers @ to 9, or if there are more than nine 
pieces, by the letters A to F, which indicate the numbers 10 
through 15 as follows: 


A = ИЕ = 11; C = SES 14: зна Р = 
15. 


These аге the same as hexadecimal notation, and you get 
used to it surprisingly quickly. Anyway, it's only rarely you 
will have more than nine pieces on a point. 
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The сотршег 5 pieces are shown as inverse characters 
(white characters on a black background) and move from point 
Y toward point B. The computer bears off onto point A. Any 
computer pieces which are ““hit”” are returned to the bar at 
point Z. You move your ““ordinary video’’ pieces from point 
B toward point У, bearing off to point 2. Апу of your pieces 
hit are returned to the bar at point A. 

The program uses its own dice, and the moves are shown 
to the right of the board. Normally, two numbers representing 
the dice thrown are shown. If you throw а ““double,”” four 
numbers are shown, along with a message to remind you that 
you've thrown a double: 


Sa cg pes — сааслен рр — 2 = AZI TEP 
ТЕМА я HORES 
CONS Na Жетен 
23 = c1) = 
іші = 
fo, S 
4) 5 

COE Е 





If you find that at any time you can't move (for example, 
if you have a piece on the bar and it cannot be used) then 
simply press ENTER when the computer asks for your moves. 
The computer will check that you cannot move (in case you've 
made a mistake, or cheated), then will either make its move 
or tell you to make a legal move if there is one. 





YOU CAN MAKE A LEGAL MOVE 
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If at any time you wish to stop the program, press BREAK 
if it is the computer’s move, or enter STOP (shifted-A) if it 
is your move. Тће program will automatically detect when a 
game has been won or lost. То enter your move, you need to 
enter the dice thrown chosen, and the point from which you 
are moving—that is, a letter and a number. These may be 
entered in any order. They will be sorted by the computer. 
For example, if you had thrown a three and wished to move 
one of your pieces from point B, you could enter either ““B3”' 
ог “ЗВ”. If the move is permitted, you will see the pieces 
move on the board. Otherwise, you'll have to re-enter your 
move. 


Program 1: Backgammon 
10 REM 
26 REM RUNS IN 6K 
36 REM 
50 GOSUB 9000 
60 REM 
999 REM 
1000 PRINT AT Ø,23:"YOUR _ _” 
1005 LET B$="1" 
1009 REM 
1010 GOSUB 2000 
1030 DIM M$(2) 
1040 INPUT M$ 


1042 RAND 
1045 IF M$(1)2" STOP " THEN STOP 
1050 IF M$=” "THEN GOTO 1200 


t Underscores within quotation marks show the number of spaces 
you must leave. 
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1055 


1060 


1070 
1280 
1090 
1100 
1110 
1120 
1125 


1130 


1135 


1140 


1150 
1155 
1160 


1165 
1180 
1198 
1199 
1200 


IF M$(1)>="1" AND 
M$(1)« ="6" AND M$(2)>="A" AND MS(2) 
<="Y" THEN LET M$ =M$(2) +M$(1) 

IF M$(1) < “A” OR M$(1)» "Y" OR М$(2)< "1" 
OR M$(2)» "6" THEN GOTO 1040 

FOR G=1TOD 

IF D$(G) -M$(2) THEN GOTO 1110 

NEXT G 

GOTO 1040 

LET FROM=CODE М%-37 

LET TO=FROM+VAL М$(2) 

IF FROM < > 1 AND А$(2,1) < > А$(1,1) THEN 
GOTO 1040 

IF AS(2,FROM) < “1” OR А5(2,ЕВОМ) > "Е" THEN 
GOTO 1040 

IF ТО «26 THEN IF АЗ(2, ТО) = ЕР” THEN GOTO 
3000 

IF TO «26 THEN IF A$(2,T0)» - "В AND 

Аб(2 ТО) < - Е" THEN GOTO 1040 

IF ТО <26 THEN СОТО 4900 

FOR H=1 TO 19 

IF A$(2,H)» = “1” AND А$(2,Н) < ="Е" THEN 
GOTO 1040 

NEXT H 

GOTO 4000 

REM 

REM 

LET FLAG=0 


1205 
1210 


1220 
1230 
1240 


1250 


1260 
1265 
1267 
1270 
1280 
1300 


1310 
1320 


1330 
1499 
1500 
1505 
1509 
1510 
1520 
1525 
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FOR H=1 ТО 25 

IF A$(2,H)< "1" OR A$(2,H)» "Е" THEN GOTO 
1270 

FOR G=1 ТО 0 

IF D$(G)=" " THEN GOTO 1260 

IF H+VAL D$(G) «26 THEN IF A$(2,H+VAL 
D$(G)) « "В" OR A$(2,H+VAL D$(G)) > "il" 
THEN GOTO 1300 

IF H+VAL D$(G)» =26 AND NOT FLAG THEN 
GOTO 1300 

NEXT G 

IF A$(2,1) < >A$(1,1) THEN GOTO 1500 

IF H«=19 THEN LET FLAG=1 

NEXT H 

СОТО 1500 

PRINT AT 14,0; “YOU CAN MAKE А. 
LEGAL MOVE” 

INPUT MS 

PRINT АТ 14,0;" 


wa ILL å) J... ji а ы ш a" . — = — 


СОТО 1045 

ВЕМ 
PRINT AT 0,23; 7751000” 
LET В5- "El" 

ВЕМ 
GOSUB 2000 

LET FLAG=Q 

LET BEAROFF=Ø 
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1530 
1540 
1545 


1550 


1560 
1570 
1580 
1590 
1600 


1610 


1620 
1630 
1640 
1650 
1660 
1699 
1700 
1710 
1720 
1730 
1740 
1750 
1768 
1770 


FOR F=26 ТО 2 STEP —1 
LET FROM=F 

IF FROM < =7 AND FLAG=Ø AND МОТ 
BEAROFF THEN GOTO 1700 

IF A$(2,FROM)< "Kl" OR A$(2,FROM)» "Gr 
THEN СОТО 1650 

FOR G=1 TOD 

IF D$(G) 2". " THEN GOTO 1620 

LET TO-FROM- VAL D$(G) 

IF TO<2 AND FLAG=Ø THEN GOTO 4000 

IF TO» 1 THEN IF A$(2,TO)=”1” THEN GOTO 
3000 

IF A$(2, TO) < "1" OR A$(2, ТО) > "Е" THEN GOTO 
4900 

NEXT G 

IF A$(2,26) « > A$(1,26) THEN GOTO 1000 

IF FLAG=Ø THEN LET FLAG=1 

NEXT F 

GOTO 1000 

REM 

FOR H=7 TO 2 STEP —1 

IF A$(2,H)=A$(1,H) THEN GOTO 1780 

LET FROM=H 

FOR G=1 TOD 

IF D$(G)=” " THEN GOTO 1770 

LET TO=FROM-VAL D$(G) 

IF TO<2 THEN GOTO 4000 

NEXT G 


1780 
1785 
1787 
1790 
1999 
2000 
2005 
2010 
2020 
2030 
2040 
2050 


2070 
2079 
2080 
2090 


2100 
2110 
3000 
3010 
3020 


3030 
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NEXT Н 

LET F=7 

LET BEAROFF=1 

СОТО 1540 

ВЕМ 

DIM D$(4) 

PRINT AT 8293... ee di 

LET D$(1)=STR$ (INT (RND:6)+1) 

LET D$(2)=STR$ (INT (RND::6)+1) 

IF D$(1)=D$(2) THEN LET D$(3 TO )=D$( TO 2) 
LET D=2+(2 AND D$(1)=D$(2)) 

PRINT AT 3,27; D$(1);TAB 27; D$(2);TAB 
27;D$(3); TAB 27; D$(4) 

IF D=2 THEN RETURN 

REM 

FOR F=1 ТО 20 

PRINT AT 8,22; ө AT 8,22; ” _ 
DOUBLE ” 

NEXT F 

RETURN 

REM 

LET A$(2,T0)=B$ 

LET A$(2,FROM)=(A$(1,FROM) AND 
A$(2,FROM)=B$) +(CHR$ (CODE A$(2,FROM)- 1) 
AND A$(2,FROM) > B$) 

IF 85-71” THEN LET A$(2,26)=(“M” AND 
A$(2,26) =A$(1,26)) +(CHR$ (CODE A$(2,26)+1) 
AND A$(2,26)» = ЕШ” 
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3040 


3050 
3999 
4000 
4010 
4020 


4040 


4045 


4050 


4899 
4900 


4910 


5000 
5010 
5020 
5030 


5040 


IF B$="B" THEN LET A$(2,1)=("1" AND 
А%(2,1)-А%(1,1) -(CHRS(CODE A$(2,1)+1) AND 
АФ T) zr 

GOTO 5000 

REM BEGIN 

IF B$="1" THEN LET P$=CHR$(CODE Р%--1) 
IF В$=' '' THEN LET Z$=CHRS$(CODE Z$ +1) 
LET A$(2, FROM)=(A$(1,FROM) AND 
A$(2,FROM)=B$)+(CHR$ (CODE AS(2, FROM) — 1) 
AND AS$(2,FROM)» B$) 

IF В5="1" AND P$ "0" THEN PRINT АТ 
3,18:P$ 

IF B$=" E" АМО 75 "[]" THEN PRINT АТ 
7,18;Z% 

GOTO 5000 

REM 

IF ТО>1 AND TO «26 THEN LET А%(2,ТО)-(В% 
AND A$(2,TO) - A$(1,TO)) +(CHR$ (CODE 
A$(2,TO)+1) AND A$(2,TO) > =B$) 

LET A$(2,FROM)=(A$(1,FROM) AND 
A$(2,-F ROM) =B$) +(CHR$ (CODE A$(2,FROM)- 1) 
AND A$(2,FROM)» B$) 

REM [Zsil ul МОМЕЗ, ОСЕ МОМ> 

LET D$(G)=” _" 

PRINT AT 2--G,27;D$(G) 

PRINT AT CODE Y$(FROM),CODE 
XS(FROM); A$(2, FROM) 

IF TO>1 AND TO<26 THEN PRINT AT CODE 
Y$(TO), CODE X$(TO);A$(2, TO) 


5050 


5060 


5070 


5080 
6000 
6010 
6020 


6030 
6035 


6040 
6500 
6510 
6520 
6530 
6535 


6540 
8999 
9000 
9001 


9002 
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PRINT AT CODE Y$(1), CODE X$(1);A$(2, 1); 

AT CODE Y$(26), CODE X$(26); A$(2,26) 

IF P$="F" OR 25- И" THEN GOTO (6000 
AND P$="F")+(65ØØ AND 2% =" 

IF D$="_ | _ " THEN GOTO (1000 AND B$= 
"ҢЕ”--(1500 AND B$="1") 

GOTO (1030 AND В%-”1”)--(1540 AND В5- ЖЕ” 
REM 

FOR F=1 TO 50 

PRINT AT 16,10; MONEIN; AT 16,10; YOU_ 
WIN ” 

NEXT F 

IF RND<.3 THEN PRINT AT 18,8; “YOU _ 
WERE. LUCKY” 

STOP 

REM 

FOR F=1 TO 50 

PRINT AT 16,11; “ANN АТ 16,11; | ММ” 
NEXT F 

IF RND<.3 THEN PRINT AT 18,8; "751000. 
RULES, ОК?” 

STOP 

REM 

CLS 

PRINT AT $416 CM nu 

ШШШ тав 10; BENKEN TAB 
10; EMI II nn 

PRINT AT 10,15; "ВУ"; AT 12, 10; "DILWYN. _ 
JONES" 
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9005 


9006 


9008 


9010 


9020 


9030 


9040 


9050 


9060 


9070 


9080 


9090 


9100 
9110 


9115 
9120 


9130 


FOR F=1 ТО 70 

МЕХТ Е 

CLS 

PRINT MP ps ps pn pn pn p n pn m m pm n un Eq 
nmana 

PRINT “HNOPQORS _ _ _ TUVwxy 1701. 
ЕШ 

PRINT “БЗ BER 

A В ЕР 

PRINT ТЕШЕШНЕНШ ЕСИ 
ШЕ ІШЕ 

PRINT "ЕШ Шш СЕСЫ 
EM E E В” 

PRINT Ne о emend its 
BAR. (M^ 

РІМТТЕШЕШЕКЕН — BERNER 
& E H W 

PRINT 180818 Ш 
ШЕШЕ E ЕН 

PRINT "Юзя НЕ BERNER 
ЕЕЕ 

PRINT "BUMLKJIH_ _ _GFEDCB_ A H N^ 
PRINT "а ui kus ин us иш ин u r: mun an иш a au ин 
иш иш si u us L 

DIM A$(2,26) 

LET A$(1)=” HEMME ME 
ши n 

LET А%2)-” 2M ERZO Egoy 


RBG ЕШ Ка _” 
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9140 LET Y$ = GE 
к, I m. ђе 

9150 LET X$=" > 7:52 - CHR$11-- "FS E ja НЕГЕ” 
и || и NER + CHRS 11+“8$:2»” 

9160 PRINT AT 1,23; "МОУЕ5!-ТАВ 23;"----- п. 
TAB 23; (1); TAB 23; (2)!-ТАВ 23;"(3)"; TAB 
23;”(4)” 

9170 LET P$="Ø" 

9180 LET z$=' 1 

9200 RETURN 

9900 SAVE "BACKGAMMOIM" 

9910 RUN 


Programming Notes 


The program has been written to speed along in the SLOW 
mode, without resorting to machine code. Most moves are 
made in a second or two, perhaps rising to five seconds for 
difficult moves. То enable the program to run this quickly, it 
was necessary to add all sorts of markers and other facilities. 
This contributed significantly to the length of the program. A 
great deal of memory 15 also taken up by the display routines, 
error trapping statements, and the copious REM statements. 
If these were simplified, users of 4K systems could probably 
use this program, since the ““соге”” takes about 3K. 

The program has a liberal sprinkling of REM statements, 
so only a brief explanation 15 needed at this point. 

AS is the main array. A$(1) contains the state of the board 
at points with no pieces. A$(2) holds the state of the board 
points A to Z. Note how well Backgammon lends itself to all 
the letters of the alphabet! Y$ contains characters whose 
CODE corresponds to the Y coordinate of the Point under 
consideration and is used in the printing routines. X$ similarly 
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contains the X coordinates. P$ and Z$ hold the number of 
pieces borne off by the player and by the computer, respec- 
tively. 

M$ is the string containing the player’s move. D$ is the 
string that holds the dice throws. FROM is the variable refer- 
ring to the point from which the move is being made, and TO 
(which is the letters T and O, incidently, not the function TO 
on shifted-4) obviously refers to the square to which the move 
is being made. These are the most important variables. 

The block of code starting at line 1000 accepts the player’s 
move and decides if it is a legal move. The block at 1200 
scans the board if the player merely presses ENTER when 
entering a move to see if, in fact, a move can be made. Line 
1500 is the start of the block handling the computer’s move. 
The block at 1700 looks after the computer’s bearing off if 
the rules of the game actually permit the computer to do so 
(no computer pieces on the bar, and all computer pieces 
either borne off or on the computer inner board on points 
G to B). 

The block at line 2000 is a subroutine generating the dice 
throws. The dice throws are stored as characters from “|” to 
“6”. Normally there are only two, but if the throw was a 
double (both dice the same), D$ is given four dice values. Р 
is the variable that says how many numbers are in D$. Lines 
2080, 2090 and 2100 flash the word DOUBLE in inverse and 
normal video alternately on the screen to bring it to the player’s 
attention. The routine at line 3000 takes appropriate action if 
a blot is hit. Note how B$ performs both the function of telling 
the computer whose move it is and also what character will 
fill a point if a move is made to an empty point. 

The next block handles bearing off. The appropriate checks 
on whether a player is allowed to bear off will have been made 
before the program gets to here. The block starting at line 
4900 sets the FROM and TO points to appropriate values. 
Line 5000 is the start of the routine that sets the display and 
updates both the board and the dice throws remaining. 

Lines 6000 to 6540 are the ““victory”” routines. This is 
where the program ends if it decides that one of the players 
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has won. The subroutine at line 9000 initializes the program, 
display, and the like. Lines 9900 and 9910 form a LOAD and 
RUN routine. When you've typed in the program, SAVE it 
on tape with the command RUN 9900. The program will then 
start up automatically when loaded from tape. 


Quatermass 


The object of this game is to surround your enemy, who is in 
turn trying to surround you. Press ““W”” to move up, '*X"' to 
move down, “А” to move right апа, “Ы” to move left. You 
are the checkerboard trail, and the computer 15 the solid black 
trail. 
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Program 2: Quatermass 


25 SLOW 
30 PRINT AT 0,4: "ОЏАТЕВМА5 5." “АТ 1, 4; Ша ши ши 
mm И. AT 3,4:' ТНЕ_ОВЈЕСТ __ОЕ _ 


16 


35 


40 


45 
50 
55 
60 
65 
70 
75 


80 
85 
90 
95 
100 
105 
110 


115. 


120 
125 


130 


Quatermass / 17 


THE. GAME. IS. TO. SURROUND. YOUR. 
ENEMY. WHO. IN. TURN. IS. ALSO. TRYING _ 
TO. SURROUND. YOU.” 

PRINT AT 7,Ø: "PRESS: "И УИ" TO. MOVE 
UP” ix ТО. MOVE. DOWN, "А" TOU 
MOVE. RIGHT", "wp TO. MOVE. LEFT" 
PRINT AT 13,0;"PLAYERS. COLOR. ЕШ”. 
АТ 15,0:"ENEMYS COLOR ШШ’ 

PRINT АТ 21,0;"PRESS. ENTER. TO. BEGIN." 
INPUT О5 

CLS 

RAND 

LET А%-”0010-1033-330010-1033” 

FOR 1-0 TO 31 

PRINT AT 0,1; "AT 20,: АТ І AND | 
-20,31; ЕШ 

МЕХТ | 

LET D=255*PEEK 16397+PEEK 16396 

LET X=D+4Ø5 

LET 2=0 +254 

LET 270 = —1 

LET XD=1 

POKE Х 8 

POKE 7 128 

IF INKEY$='!” THEN GOTO 120 

LET D= (33 AND INKEY$= X”)—(33 AND 
INKEY$= Му") + (1 AND INKEY$="D”)—(1 AND 
|МКЕУ5 = "А", 

IF D< >Ø THEN LET XD=D 
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135 LET X=X+XD 

140 IF PEEK X< >Ø THEN GOTO 230 

145 POKE Х,8 

150 IF PEEK (7+70) +РЕЕК (7+2+70) + РЕЕК 
(Z+3#ZD)=0 AND ВМО < 0.9 THEN GOTO 215 

155 LET D=3*INT (ВМО»4) +1 

160 FOR |=3 TO 1 STEP - 1 

165 FOR J=D ТО 0+9 STEP 3 

170 LET ZD=VAL AS(J TO J+2) 

175 FOR K=1 TOI 

180 IF PEEK (7+К+70) < >Ø THEN СОТО 195 

185 NEXT К 

190 GOTO 215 

195 NEXT J 

200 NEXT | 

205 PRINT АТ 21,Q;YOU. WIN" 

210 СОТО 235 

215 LET Z=Z+ZD 

220 POKE 7 128 

225 GOTO 125 

230 PRINT AT 21,0;"151000. WIN” 

235 INPUT Q$ 

240 IF Q$="" THEN СОТО 55 

245 STOP 


Sample Run 
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THE ОВЈЕСТ OF THE GAME 15 ТО 
SURROUND YOUR ENEMY WHO IN TURN 
IS ALSO TRYING TO SURROUND YOU. 


MW” TO MOVE UP 

"X" TO MOVE DOWN 
ид" TO MOVE RIGHT 
"О" TO MOVE LEFT 
PLAYERS COLOR BÆR 
ENEMYS COLOR IBI 
PRESS ENTER TO BEGIN. 


PRESS: 


551118162 
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22 
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а. 
3 
КИ 
ом 
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225 
en 
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ДИ 
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«м? 
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Checkers 


This program puts up a surprisingly tough game of CHECK- 
ERS. You'll need to concentrate to defeat it. 

The string in line 4000 prints out the board, with line 
4010 reading the odd collection of characters you see, and 
from their codes gets information on the position of a piece 
in the string A$. These are loaded into the array in lines 4030 
to 4050, so the computer knows where its pieces are all the 
time. 4060 contains information which the computer uses with 
information from line 1040 and similar ones to look for squares 
that are related diagonally. 

Lines 1000 to 2990 contain the computer’s decision-mak- 
ing algorithm. 1010 to 1170 checks each piece to see if it can 
capture. If it finds a possible capture, it makes it. This part of 
the algorithm is fairly slow at the start of the game when the 
computer has a lot of pieces on the board, but towards the end 
of the game its move decisions are made almost instantly. 
Multiple jumps are also made within this routine (a relatively 
simple thing to achieve, as you'll see), although a slowing 
down loop may be needed in order to see it! Line 1120 checks 
to see if a piece should be promoted to king, and if it finds 
one, sends control to 2990 where the promotion is made. 

Lines 2000 and 2130 are for the non-capture move. The 
computer first searches to see if it can move a piece where it 
will not be in danger of capture, and if it does not find one, 
looks for a legal move, even if it places one of its pieces in 


20 
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danger. If no legal move is found, then YOU WIN message 
(line 2140) 15 printed. 

Lines 3000 to 3230 accept the player's move. The move 
is entered in two strings, G$ and H$, each containing a letter 
from A to Н, and a number from | to 8. The first string is 
the square you are playing from, and the second is the square 
you are playing to. These are printed out with ““?”” after them, 
asking if this is correct. If not, enter ““N””, or enter anything 
if the move is correct. 

If you capture a piece, the board will be reprinted, and 
you'll be asked if you can jump again. If you can, enter “У”. 


Program 3: Checkers 
10 GOTO 4000 
100 PRINT AT 6,11; 
110 FOR A=1 TO 91 STEP 10 
120 PRINT TAB 11:А%(А TO А--9) 
130 NEXT A 
140 RETURN 
1000 GOSUB 100 
1010 LET Q=Ø 
1020 FOR В=1 ТО 12 
1022 LET C=B(B) 
1025 IF A$(C)< > "X" AND АС) < > "5" THEN GOTO 
1170 
1030 FOR Х=1 ТО 4 
1040 LET N=CODE B$(X) — 50 
1050 IF NOT ((X «3 AND А%(С)-”Х”) OR AS(C)= 
"$'") THEN GOTO 1150 
1060 IF NOT (AS(C+N)="0" OR AS(C+N)="2") 
THEN СОТО 1150 
1070 IF NOT (AS(C+2xN)=" — THEN GOTO 1150 
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1080 
1090 
1100 
1105 
1110 
1120 
1125 
1130 
1140 
1150 
1160 
1170 
2000 
2010 
2015 
2017 


2020 
2030 
2040 


2050 
2060 


2070 
2080 


LET A$(C+2#N)=AS(C) 
LET А$(С)=”_" 

LET A$(C+N)=”_” 

LET B(B)=C+2#N 

LET C=C+2xN Я 

IF C>80 THEN GOTO 2990 (гл. 
GOSUB 100 | 

LET Q=1 

GOTO 1030 

NEXT X 

IF Q=1 THEN GOTO 3010 

NEXT B 

FOR A=1 TO 2 

FOR B=1 TO 12 

LET C=B(B) 

IF AS(C) < > "X" AND А%(С)< > 

"6" THEN GOTO 2120 

FOR X=1 TO 4 

LET N=CODE B$(X) —50 

IF NOT ((X«3 AND АЧ(С)="Х") OR A$(C)="8") 
THEN GOTO 2120 

IF NOT (AS(C+N)=""_") THEN GOTO 2110 
IF A=1 AND ((AS(C+2#N)="0" OR 
A$(C+2#N)="£") OR ((AS(C+N+2Ø-ABS 
N)="0" OR A$(C+N+20—ABS М)="2") AND 
АФ(С--М-20--АВ6 М)="_")) THEN GOTO 
2110 

LET A$(C+N)=AS(C) 

LET AS(C)=""_” 


2085 
2090 
2100 
2110 
2120 
2130 
2140 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3080 


3090 
3100 
3110 
3120 
3130 
3140 
3150 


3160 
3170 
3180 
3190 
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LET B(B)=C+N 

IF CH+N» 80 THEN LET А%(С-М)-”%” 
GOTO 3000 

NEXT X 

NEXT B 

NEXT A 

PRINT AT 17,12; MIN: 7 
LET А5(С) - "$" 

созив 100 

PRINT АТ 17,8; "FROM 2 " 
INPUT G$ 

PRINT АТ 17,13;G$;”. TO ? " 
INPUT H$ 

PRINT AT 17,19;H$;" 2” 
ІМРОТ 25 

РВІМТ АТ 17,8;" 


159) l = === «к. «ла» a ... о «аа 


1I 


IF Z$="N" THEN GOTO 3000 

LET G=1Ø* (CODE G$(1)—37)+CODE G$(2)-27 
LET Н- 10» СООЕ H$(1)—37)+CODE Н%(2)-27 
LET AS(H)=A$(G) 

IF Н «20 THEN LET A$(H)= "£" 

LET АЧ(С)=" _" 

IF ABS (H-G)< >22 AND ABS (Н-С)< > 18 
THEN СОТО 1000 = 
LET A$(H--Gy2)-". " 

GOSUB 100 

PRINT AT 17,6; "CAN. YOU. JUMP. AGAIN?" 
LET Z$=INKEYS 


4 ара 
ww + 


# 


TS 


47) 


— 
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3200 IF Z$="" THEN GOTO 3190 
3210 PRINT AT 17,6;” 


3220 IF Z$="Y" THEN GOTO 3010 

3230 GOTO 1010 

4000 LET А%-” 12345678 АШХШЕХШХШХлАРХ 
ЕХЕХЕХЕИРСЕХЕХЕХЕХС MW I 
HM ШЕШ ШЕШ ++ ШШШ 
FaMoHMoHocHochroHoHoHoHrhè 
12345678 ” 

4010 LET БВ%-”%<?),-0/В759” 

4020 DIM B(12) 

4030 FOR В=1 ТО 12 

4040 LET B(B)=CODE В5(В) 

4050 NEXT B 

4060 LET B$="XVDB" 

4070 PRINT AT 2,2;"DO. YOU. WANT. TO. GO. 
FIRST? Y/N" 

4080 LET Z$=INKEY$ 

4090 IF INKEY$="" THEN GOTO 4080 

4100 PRINT AT 2,2;"CHECKERS. BY. ОВАНАМ.. 
CHARLTON ” 

4110 IF Z$="Y" THEN GOTO 3000 

4120 GOTO 1000 


Sub Hunt 


You are the captain of a destroyer, and it is your task to seek 
and destroy five enemy submarines. 

You can drop one depth charge at a time. Each submarine 
is capable of releasing a bomb which floats upward, sinking 
any ship it hits. 

Your controls are the **M"' and “М” keys. “В” will drop 
a depth-charge. Your time is displayed on the screen if you 
survive. A ““best time’’ feature also operates this game. 
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Program 4: Sub Hunt 


5 
10 
15 
20 
26 
30 
35 
40 
45 
50 
55 
60 
65 
70 
75 
80 
85 
90 
95 

100 


101 
102 


105 
119 
115 
117 


GOSUB 500 

LET L=1E9 

CLS 

DIM A(5) 

DIM B(5,2) 

FOR 1-1 TO 5 

LET A(l)=INT (RND+57 —28) 

LET B(l,1)=2+3x| 

LET B(l,2)- ABS А()+2 

NEXT І 

LET Z=15 

LET N=Ø 

LET В-0 

FOR |=0 TO 31 

PRINT AT 11:7- 

NEXT І 

POKE 16437,255 

POKE 16436,255 

FOR |=1 TO 5 

PRINT AT OZ" войн "AT 1,2;''— ти 

mm - 

IF A()»98 THEN GOTO 115 

PRINT AT 4+3=l,ABS A(l);” mi” +CHRS (156 
+ "и on 

la А(І)-А()--1 

IF A()=29 THEN LET A(l)=—27 

IF В(,1) > =1 THEN СОТО 135 

IF В(І,1)--1 THEN СОТО 122 


118 
120 
122 
125 
130 
135 
140 


145 
150 


155 
160 
162 
165 
170 
175 
180 
185 
190 
185 
200 
205 
206 
210 
212 
215 
220 
225 
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PRINT AT 1,B(,2);,—” 
LET Б(1)--1 

IF А() 98 THEN GOTO 150 

LET B(,1)=2+3+l 

LET B(l,2)=ABS А()+2 

PRINT AT B(l,1)+1,B(1,2);"—";AT В(,1),В(,2);"0” 
IF 8(,1)=1 AND В1,2)-7>0 AND В(,2)-7<6 
THEN GOTO 245 

LET Б(1)-В(,1)-1 

LET Z=Z+(INKEY$=”M” AND 

Z< =24)—(INKEY$="N” AND Z> =1) 

NEXT | 

IF ІМКЕҮ$ < > "B" THEN GOTO 175 

IF B< >Ø THEN PRINT AT B-1,BB;" " 
LET BB=Z+3 

LET B=3 

IF B< =20 THEN GOTO 190 

PRINT AT 20,88;" _" 

LET B=0 

IF B=Q THEN GOTO 95 

PRINT AT B—1,BB;". "AT B,BB; 

LET B=B+1 

LET P=PEEK (256»РЕЕК 16399 + РЕЕК 16398) 
IF P=Ø OR P=52 THEN GOTO 235 

LET N=N+1 

LET A((B—4)/3)=99 

PRINT АТ B-1,BB-2 . _ п 

IF N=5 THEN СОТО 255 

LET B=0 
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230 
235 
240 
245 
250 
255 


260 
265 


270 
279 
280 
500 


505 


510 


915 


СОТО 95 

PRINT "V" 

СОТО 95 

PRINT АТ 0,7;"SHIP. DESTROYED" 

СОТО 270 

LET T=INT ((65535 —PEEK 16436 —256«PEEK 
16437)/50) 

IF T<L THEN LET L=T 

PRINT АТ 19,0; TIME. ":Т;" SECONDS.”:;AT 
21,0;"BEST. TIME. ":|;" SECONDS." 

INPUT О5 

IF 0%-””” THEN СОТО 15 

STOP 

PRINT AT 0,4;"SUB HUNTER.” AT 1,4; PME Pm m 
а] и pm | жы m ра n ш 

PRINT AT 3,4;" YOU. ARE. THE. CAPTAIN _ 
OF. A. DESTROYER. AND. IT IS YOUR 
TASK TO. SEEK. AND. DESTROY. FIVE _ 
ENEMY. SUBMARINES. YOU. CAN. DROP. 
ONE. DEPTH. CHARGE. АТ А TIME. — 
EACH. SUBMARINE. IS. CAPABLE. OF.. 
RELEASING А BOMB. WHICH. FLOATS. _ 
UPWARDS. SINKING. ANY. SHIP. IT. HITS." 
PRINT АТ 13,0;"PRESS:;",,"""H"" TOU 
MOVE. SHIP. TO. THE. LEFT","""N'"" TOU 
MOVE. SHIP. TO. THE. RIGHT" meg TO _ 
DROP. A. DEPTH. CHARGE" 

PRINT AT 18,4;"IF. YOU. SURVIVE, “YOUR. 
TIME. AND. THE. BEST. TIME. IS. 
DISPLAYED. ON. THE. SCREEN." 
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520 INPUT 05 
525 RETURN 
1600 IF INKEY$< > "B" OR B< >Ø THEN GOTO 175 


Gomoku is often played оп а grid 19 by 19, but in this game, 
the grid is 7 by 7. The idea of the game is simple. You have 
to place pieces on the grid—taking it in turns with the com- 
puter to place a piece—to create an unbroken line of five in 


any 


Gomoku 


direction. 


The program plays a very defensive game, and you will 


find it very hard to win, but it is possible. 


You enter your move as a letter followed by a number 
(such as “Е1””). You appear as H’s, and the computer as 
inverse С'5. The program is very slow, so you'll need to run 
it in FAST mode. The characters in line 1010 are the graphics 


on the 1,A,D and 5 keys. 


Program 5: Gomoku 


30 


10 GOTO 1000 
20 LET E=A 


BABCCEFGH 


30 

40 
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60 

70 

80 

90 
100 
110 
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140 
150 
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230 
240 
250 
255 
260 
265 
270 
280 
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LET E=E+N 

IF AS(E) < > C$ THEN GOTO 70 

LET K=K+1 

GOTO 30 

RETURN 

PRINT AT 6,11; 

FOR А=1 TO 73 STEP 9 

PRINT TAB 11; A$(A TO А +8) 

NEXT A 

RETURN 

GOSUB 80 

SLOW 

PRINT AT 21,11; “YOUR. MOVE” 
INPUT G$ 

PET AT TNT UU ri RT У 
IF LEN G$< > 2 THEN GOTO 150 
(ЕТ G=9x* (CODE G$(2)—28) + CODE G$(1)—36 
IF G>71 OR G<11 THEN GOTO 150 
IF A$(G)< » "+" THEN GOTO 150 
LET AS(G)="H" 

GOSUB 80 

FOR A=1 TO 50 

NEXT A 

FAST 

LET C$-"H" 

LET A=G 

FOR Х=1 ТО 4 

LET К=@ 

LET N=CODE Х$(Х) 
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290 
300 
310 
320 
400 
410 


420 
430 
435 
440 
450 
455 
460 
470 
480 
490 
500 
510 
520 


525 
530 
532 
535 
540 
545 
550 
560 


GOSUB 20 

LET N=—N 

GOSUB 20 

IF K>3 THEN PRINT AT 21,12; ӨЕ Ө НС 
FOR Т=1 ТО 3 

LET С53 ("8” AND (T=1 OR T=3)) +("Н" AND 
T=2) 

LET G=Ø 

LET H=Q 

LET | =1 

ЕОВ А=11 ТО 71 

IF A$(A) < > "+ THEN GOTO 580 

LET M=0 

ЕОВ Х=1 ТО 4 

LET K=Ø 

LET N=CODE X$(X) 

GOSUB 20 

LET N=-N 

GOSUB 20 

IF (Т=1 AND К<4) OR (Т=3 AND К<3) OR 
(T=2 AND K<L) THEN GOTO 545 

LET M=M+1 

IF T< »2 THEN GOTO 545 

IF М=2 АМО L=K THEN GOTO 540 

LET H=Ø 

LET L=K 

NEXT X 

IF МАН THEN GOTO 580 

LET H=M 


570 
580 
590 
600 
610 
620 
630 
640 
700 
710 
715 
720 
730 
740 
750 
760 
770 
780 
790 
800 
1000 
1010 
1020 


1030 
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LET G=A 
NEXT A 

IF H< >0 THEN GOTO 700 
NEXT T 

FOR A=1 TO 200 

LET G=INT (RND:61)+11 

IF AS(G)="+" THEN GOTO 700 
NEXT A 

LET A$(G)- "fel" 

LET C$-'Tel" 

LET A=G 

FOR Х=1 TO 4 

LET K=0 

LET N=CODE X$(X) 

GOSUB 20 

LET N=-N 

GOSUB 20 

IF K>3 THEN PRINT AT 21,12; ФЛ": Q 
NEXT X 

GOTO 130 

FAST 


LET Х$=”#] ban] PÅ 
LET Ағ- "ВВАВСОЕЕСЕИ + + + + + + +12+ + 


+++++23+++++++34+++++++45+ ++ 
+++4+56+++++++67+++++++7 
ABCDEFG" 

GOTO 130 


5 
Biorhythms 


This program explains what biorhythms are and then prints 
out a chart of how your intellectual, physical and emotional 
cycles are running. It’s fascinating to run and can Бе a source 
of genuinely useful information. For example, it would in- 
advisable to accept that position as a Space Shuttle pilot for a 
flight day when all your cycles are at rock bottom. 


Program 6: Biorhythms 


1 REM Efe e pn pn pn pn | шн ра | ши ра ша | ин s m SR | Em 
ра ра ра | _ 
REM Å) | MARK. В. HARRISON.. (В 
REM Bs w m uz ши шн иш ши шн ши иш не ши шш mam и не 





mu теш лең ад ій 
6 REM 
7 REM "ВІОВНУТНМ5” 
10 SLOW 


15 PRINT AT 0,5; Oka IRA 
EEE DEE u kan Ei SP пра ET ааа 
”BJØORHYTHMS ARE GYGLES ОР — _ 


34 
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_. ENERGY THATTHEQ_INTELLEOCTHAL,... 
PHYSICAL AND. EMOTIONAL. STATES... _ 

— OF THE. HUMAN. BODY. UNDERTAKES.” 
i ИЕ oi BLUE. ne Ү с роза 
. "THE. PROGRAM. ALLOWS. A. DATE OF 
BIRTH ТО ВЕ ENTERED- AND А DATE... = 
FROM. WHICH. THE. BIORHYTHMS. ARE _ 
REGUIBED, — THE. STATE ВЕ JHE... 
BODYFOR THE. NEXT. 25 DAYS. WILL _ 
THEN....... ВЕ. DISPLAYED IN. THE FORM — 
OF A GRAPH. „А POSITIVE VALUE — 
IS..AN.....EXCESS. ENERGY PERIOD, А... 
NEGATIVEVALUE IS. А RESTORATION. . 


PERIOD, _. AND. A ZERO VALUE IS. A... 
PERIOD . — WHERE GAUTION SHOULD. . 
BE. TAKEN." 

PRINT AT 17,0;"ENTER. WHEN. GRAPH. IS 
DISPLAYED" "eom FOR. A. FRINTEB.. 


COPY" 75197. TO) RETURN TO. COMMAND 
MODE" FB”. ТО ENTER A. NEW 
BIRTHDAY? "p TO ENTER A NEW — 
STARTING DATE" 

INPUT Q$ 

LET A$="PEI" 

CLS 

PRINT АТ 5,4:”ENTER DATE. ОР BIRTH" 
GOSUB 300 

LET B$=DS 
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70 
75 
80 


85 
90 
85 
100 


105 
110 
115 
120 
125 
139 
135 
149 
145 


150 
159 


LET NØ=NS 

CLS 

PRINT АТ 5,4; "ENTER REQUIRED. STARTING _ 
DATE” 

GOSUB 300 

LET N=NS-NØ 

CLS 


PRINT AT 0,5: BIRTHDAY. "ВАТ 1,5; Mmm 
sm зана | Å к | а шш n жа ав NAT 20 
"BIORHYTHM. CYCLE. FROM. ";D$;AT 3,0; 

idu іше on as 
pu ри ў ана паа m um. з Е АТАЛ: АТ 
11,2:"Ø":AT 18,1:"-1":АТ 19,4; 


ER SR са 1. ЗА. on a = 
25" 

ЕОВ |=4 ТО 18 

PRINT AT |,3;":" 

NEXT I 

FOR |=4 TO 28 

PRINT AT 11,1;/—" 

NEXT | 

FOR J=4 TO 28 

FOR |=23 TO 33 STEP 5 

PRINT AT 11—7«*SIN (2xPl+(N — INT (N/I))/I),J: 
А%((1- 18)/5) 

NEXT I 

LET N=N+1 


160 
165 
170 
179 
180 
185 
190 
195 
295 
300 
305 
310 
315 
320 
325 
330 
335 
340 
345 


350 
355 
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NEXT J 

PAUSE 40000 

LET Q$-INKEYS 

IF Q$="S" THEN STOP 

IF Q$="C" THEN COPY 

IF О%-”В” THEN GOTO 50 

IF Q$="D" THEN GOTO 75 

GOTO 155 

CLS 

PRINT AT 7,4;"ENTER. DATE. '5 
INPUT D 

PRINT D;AT 8,4;"ENTER. MONTH. ” 
INPUT M 

PRINT M;AT 9,4;"ENTER. YEAR"; 
INPUT Y 

PRINT Y;AT 11,4;"CORRECT?" 
INPUT Q$ 

IF Q$ « > "THEN GOTO 295 

LET NS=INT (365.25«(Y - (C1 AND М —3)) + INT 
(30.6%(М--1--(12 AND M<3)))+D 

LET D$=STRS D+'/”+STRS M-«"/"--STRS Y 
RETURN 


Sample Run 


BIORHYTHMS. 
BIORTHYMS ARE CYCLES OF 


ENERGY THAT THE INTELLECTUAL, 
PHYSICAL AND EMOTIONAL STATES 
OF THE HUMAN BODY UNDERTAKES. 
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THE PROGRAM ALLOWS А DATE OF 
BIRTH TO BE ENTERED AND A DATE 
FROM WHICH THE BIORHYTHMS ARE 
REQUIRED. THE STATE OF THE BODY 
FOR THE NEXT 25 DAYS WILL THEN 
BE DISPLAYED IN THE FORM OF A 
GRAPH. A POSITIVE VALUE IS AN 
EXCESS ENERGY PERIOD, A NEGATIVE 
VALUE IS A RESTORATION PERIOD 
AND A ZERO VALUE IS A PERIOD 
WHERE CAUTION SHOULD BE TAKEN. 


ENTER WHEN GRAPH IS DISPLAYED: 
"С" FOR A PRINTED COPY 

"5" TO RETURN TO COMMAND MODE 
“B” TO ENTER A NEW BIRTHDAY 

"D" TO ENTER А NEW STARTING DATE 


ENTER DATE OF BIRTH 
ENTER DATE 6 

ENTER MONTH 5 
ENTER YEAR 1961 


CORRECT? 


ENTER REQUIRED STARTING DATE 
ENTER DATE 1 

ENTER MONTH 12 

ENTER YEAR 1981 


CORRECT? 
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Eliza 


This program demands about 7K of memory. It is long because 
most of it is text held in listings, so you'll have to have your 
typing skills in fine form. 

ELIZA 15 an attempt to write a program that will hold a 
conversation—after a fashion—with a human being. You'll 
have to carry the conversation and put up with a few strange 
replies, but in general it performs very well indeed. Occa- 
sionally, you'll find the computer seems to actually know what 
you're going on about and has its own idea what it intends to 
do about it. 

An element of boldness is built in so that although the 
program 15 generally respectful and polite, it occasionally turns 
on the human and may become aggressive! Through these 
occasional displays of ““intelligence”” the computer builds up 
replies which can be quite hilarious, or even heartbreaking, at 
times. 

ELIZA often makes direct use of material you enter in its 
replies, and will attempt to conjugate replies so that, for in- 
stance, remarks like I ONLY LOVE MYSELF does not be- 
come mixed up with YOU ONLY LOVE MYSELF. This may 
not make much sense at the moment, but once you’ve run the 
program you'll see what we (and Eliza) are talking about. 

Program speed 15 reasonable. Тће average human state- 
ment takes about 15 seconds to process, evaluate, select a 
reply, conjugate and write to the screen, although response 
times vary from immediate to quite long. You'll find that most 
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remarks take 5 to 10 seconds. If you are fussy, run the program 
in FAST, or experiment with switching from SLOW to FAST 
and back again in various parts of the program. 

The maximum length of input allowed is 255 characters, 
but it is best to stick to simple statements, although there 1s 
nothing to stop you being extremely verbose if you prefer. 
However, the longer the input, the longer ELIZA will take to 
process it. 

You'll be allowed about five minutes per session, after 
which you'll be told (possibly politely) that your time 1s up. 
If you wish to terminate a session earlier than this, simply 
enter GOODBYE when it is your turn to ’’speak.’’ Null inputs 
are not permitted, and when you are asked for your name, 
you'll have to enter a word at least one character long, and 
not longer than 32 characters. 

The program listing follows. Once you’ve entered it, start 
your tape recorder and use RUN 9900 to save it on tape. The 
program runs automatically when loaded from tape. Delete 
line 9910 if you do not want this facility. 


Program 7: Eliza 


2 RAND 
5 POKE 16437,255 
6 РОКЕ 16436,255 


10 SCROLL 

20 PRINT "НЕШО. Il. AM. YOUR 751000 . 
COMPUTER” 

30 SCROLL 

40 PRINT “PSYCHIATRIST. WHAT. IS. YOUR... 
NAME?” 

45 INPUT АЗ 


5) IF A$="" OR LEN А5 32 THEN GOTO 45 
55 SCROLL 
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56 
60 
65 
66 
70 
75 
80 


83 
84 
86 
88 
90 
100 
101 
103 


105 
110 
112 
114 
115 
116 
VIF 
118 
119 
12Ø 
123 
125 


SCROLL 

PRINT Аб 

SCROLL 

SCROLL 

LET M=INT (ВМО2) 

IF M=Ø THEN PRINT “WHAT А МІСЕ МАМЕ” 
IF M=1 THEN PRINT "THAT. IS. АМ AWFUL — 
NAME” 

SCROLL 

SCROLL 

PRINT "WHAT. IS. YOUR. PROBLEM?" 
SCROLL 

LET 53-”” 

INPUT ^$ 

IF A$=""GOODBYE” THEN GOTO 2080 

IF PEEK 16436+256+РЕЕК 16437 «50535 THEN 
GOTO 2000 

RAND 

IF LEN A$=Ø OR LEN А5 255 THEN GOTO 100 
FOR М=1 ТО LEN A3 STEP 32 

IF М+31> = СЕМ Аб THEN GOTO 118 

SCROLL 

PRINT A$ (M TO M31) 

NEXT M 

SCROLL 

PRINT A$ (M TO ) 

SCROLL 

LET B$=" “+A$+” n 

LET B=LEN B$ 


130 
140 


150 
160 
200 
210 
220 
230 
240 
250 


260 
270 
280 
290 


300 
310 


320 


330 


340 
350 
1000 
1010 
1020 
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FOR Х=1 ТО LEN 85 
IF B$(X) < "0" OR B$(X)» "Z" THEN LET 


В$(Х)=”_” 

IF B$(X)=".—" THEN LET S$=S$+CHR$ X 
NEXT X 

FOR X=3000 ТО 3460 STEP 20 

GOSUB X 


LET K=LEN K$ 

FOR S=1 TO LEN S$-1 

LET CS=CODE S$(S) 

IF CS+K-1«=B THEN IF B$(CS TO С5--К-1) 
=K$ THEN GOTO 1000 

NEXT S 

NEXT X 

LET M=INT (RND:6) 

IF M=@ THEN LET R$=”GO. AND. PRETEND _ 
YOU. ARE. A. LEMMING” 

IF M=1 THEN LET В$= "ОН, SHUT. UP" 

IF M=2 THEN LET R$="THIS IS. GETTING 
INTERESTING” 

IF M=3 THEN LET R$-"YOU. ARE. A. VERY.. 
BORING PERSON" 

IF M=4 THEN LET R$="PLEASE CHANGE — 
THE SUBJECT" 

IF M=5 THEN LET R$=""| SEE" 

GOTO 1500 

REM 

IF CODE 55 (S+1)<CS+K—1 THEN (ЕТ S=S+1 
GOSUB 6940 (Х- 2980) «3+ 20 МТ (RND::3) 
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1230 
1040 
1280 
1090 
1100 
1110 
1120 
1130 


1140 
1150 
1160 
1200 
1205 
1210 


1220 
1400 
1500 
1502 
1505 
1510 
1520 
1530 
1540 
1550 
1555 


1560 


LET R=LEN R$ 

IF RS(R) <>” " THEN GOTO 1500 

FOR Т=5+1 ТО LEN S$ 

LET DS=CODE S$(T) 

FOR 1)--4000 ТО 4200 STEP 20 

GOSUB U 

LET C= LEN C$ 

IF DS+C—1«=B THEN IF B$(DS TO 

DS+C—1)=C$ THEN GOTO 1200 

NEXT U 

NEXT T 

GOTO 1400 

LET D$="" 

GOSUB U + 1000 

LET R$=R$+B$ (CS+K TO DS) +D$(2 TO 
)+B$(DS+C ТО ) 

GOTO 1500 

LET R$=R$+BS(CS+K TO ) 

FOR М=1 ТО LEN R$ STEP 32 


IF M431» =LEN R$ THEN GOTO 1530 
SCROLL 

PRINT R$(M TO M+31) 

NEXT M 

SCROLL 

PRINT R$(M TO ) 

SCROLL 

IF PEEK 16436 +256+PEEK 16437 < 50535 THEN 


GOTO 2000 
GOTO 90 


2000 
2010 
2020 
2030 
2040 
2050 
2060 


2070 


2080 
2090 
2100 
2110 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 


Eliza / 45 


REM ЛД 

SCROLL 

PRINT "I. AM. AFRAID. YOUR. TIME. IS. UP," 
SCROLL 

LET M=INT (RND*3) 

IF M=Ø THEN PRINT “THANK. GOODNESS" 
IF M=1 THEN PRINT "BUT. IT. WAS. NICE. 
TALKING. TO. YOU” 

IF M=2 THEN PRINT "AND. І. HOPE. YOU. 
NOW. FEEL. BETTER” 

SCROLL 

SCROLL 

PRINT "GOODBYE. FOR. NOW.” 

STOP 

LET K$=" | АМ. 

RETURN 

LET K$=" ARE. YOU. " 

RETURN 

LET K$=”. |. DO. МОТ.” 

RETURN 

LET K$=" CAN. 1." 

RETURN 

LET K$=" CAN. YOU...” 

RETURN 

LET K$=" | FEEL 

RETURN 

LET K$=" | CAN. NOT. 

RETURN 

LET K$=" | WANT. 
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3150 RETURN 

3160 LET K$-". DO. YOU " 
3170 RETURN 

3180 LET K$=" | WILL. NOT...” 
3190 RETURN 

3200 LET K$=” WILL. _YOU 
3210 RETURN 

3220 LET K$=" HATE ." 
3230 RETURN 

3240 LET K$-" LOVE " 
3250 RETURN 

3260 LET К%-” DREAM. " 
3270 RETURN 

3280 LET K$=" MONEY.” 
3290 RETURN 

3300 LET K$=" NAME" 
3310 RETURN 

9320 LET Må" IF " 

3330 RETURN 

3340 LET K$=" YOUR " 
3350 RETURN 

3360 LET K$="_ THINK" 
3370 RETURN 

3380 LET K$=" COMPUTER" 
3390 RETURN 

3400 LET K$=" TS" 

3410 RETURN 

3420 LET K$=" FRIEND" 
3430 RETURN 


3440 
3450 
3460 
3470 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
5000 
5010 
5020 
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LET Кр—" 1 ^" 

RETURN 

LET K$=" YOU ” 
RETURN 

LET C$=” | АМ.” 
RETURN 

LET С%-” YOU. ARE." 
RETURN 

LET C$=” | WAS " 
RETURN 

LET C$=” YOU. WERE " 
RETURN 

LET C$-" ME " 
RETURN 

LET C$" YOU ^" 
RETURN 

LET C$-" МУ.” 
RETURN 

LET Өш-” YOUR." 
RETURN 

LET C$=” MYSELF." 
RETURN 

LET C$=” YOURSELF. " 
RETURN 

LET C$-" | " 

RETURN 

LET D$=" YOU. ARE." 
RETURN 

LET D$=" | АМ. ” 
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5030 RETURN 

5040 LET D$=" YOU WERE " 

5050 RETURN 

5060 LET D$=" | WAS" 

5070 RETURN 

5080 LET D$=" YOU " 

5090 RETURN 

5100 LET D$=" ME " 

5110 RETURN 

5120 LET О$=”_ YOUR ғ 

5130 RETURN 

5140 LET D$=" MY " 

5150 RETURN 

5160 LET D$-" YOURSELF ^" 

5170 RETURN 

5180 LET D$=" MYSELF. " 

5190 RETURN 

5200 LET D$=" YOU ^" 

5210 RETURN 

7000 LET R$=”! DO. NOT. CARE. MUCH. IF... 
YOU. АНЕ" 

7010 RETURN 

7020 LET R$-"WHY. ARE. YOU. " 

7030 RETURN 

7040 LET R$—-"HOW. LONG. HAVE. YOU. BEEN." 

7050 RETURN 

7060 LET R$="WHY DO. YOU. ASK. IF. I. АМ “ 

7070 RETURN 

7080 LET R$="WOULD YOU. LIKE. TO. BE. T 


7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 


7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 


7310 
7320 
7330 
7340 
7350 
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RETURN 

LET R$="SO WHAT. IF. |. АМ ОВ. МОТ” 
RETURN 

LET R$="WHY МОТ” 

RETURN 

LET RS= “WHY. DON"'"T. YOU. " 

RETURN 

LET Н5- TELL ME. MORE. ABOUT. THIS” 
RETURN 

LET R$="NO, YOU. MAY. NOT" 
RETURN 

LET R$="CERTAINLY МОТ” 

RETURN 

LET R$="WHY DO. YOU. ASK. IF. YOU _ 
CAN.” 

RETURN 

LET R$="| САМ DO. ANYTHING" 
RETURN 

LET R$="WHY DO. YOU. ASK IF. 1 САМ ” 
RETURN 

LET R$="CAN YOU. " 

RETURN 

LET R$="TELL ME. MORE. ABOUT. WHY 


YOU FEEL." 


RETURN 

LET Бір-“ҮОМ DO. NOT КЕАЦУ FEEL." 
RETURN 

LET R$-"POOR. YOU" 


RETURN 
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7360 LET R$="EXPLAIN WHY. NOT" 

7370 RETURN 

7380 LET R$="WHY_ARE_YOU_UNABLE_TO_” 

7390 RETURN 

7400 LET R$="HAVE YOU. TRIED. TO. " 

7410 RETURN 

7420 LET R$="WHY DO. YOU. WANT..." 

7430 RETURN 

7440 LET R$="ARE YOU. SURE. YOU. WANT" 

7450 RETURN 

7460 LET R$="| AM. UNSURE IF. I. WOULD. . 
WANT. " 

7470 RETURN 

7480 LET R$-"SO. WHAT IF. 1.” 

7490 RETURN 

7500 LET R$="DO YOU. THINK І.” 

7510 RETURN 

7520 LET R$ "MAYBE" 

7530 RETURN 

7540 LET RS= “SUIT. YOURSELF" 

7550 RETURN 

7560 LET R$="WHY NOT" 

7570 RETURN 

7580 LET R$="WHY WILL. YOU. NOT ." 

7590 RETURN 

7600 LET R$="WHY SHOULD | ” 

7610 RETURN 

7620 LET R$="MAYBE" 

7630 RETURN 

7640 LET R$="| MIGHT " 


7650 
7660 
7670 
7686 
7690 
7700 
7710 
7720 


7730 
7740 
7750 
7760 
7770 
7780 


7790 
7800 


7810 
7820 


7830 
7840 


7850 
7860 
7870 
7880 
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RETURN 

LET R$="| HATE YOU" 

RETURN 

LET R$-"DO. YOU. HATE. ME” 

RETURN 

LET R5=”SO WHAT" 

RETURN 

LET R$="LOVE IS. TOO. SLOPPY РОВ. 
ME ТО DISCUSS" 

RETURN 

LET R$="| LOVE ” 

RETURN 

LET R$="0H,_ SHUT. UP" 

RETURN 

LET R$="PLEASE DESCRIBE. YOUR: - 
DREAMS” 

RETURN 

LET R$="| HOPE YOUR. DREAMS. ARE _ 
REALLY HORRIFIC" 

RETURN 

LET R$="| WOULD. ВЕ ASHAMED. ТО. 
APPEAR. IN. YOUR. DREAMS" 

RETURN 

LET R$-"FROM. SEEING YOU, І. DO 
NOT. THINK. YOU. HAVE. MUCH. MONEY" 
RETURN 

LET R$="MONEY IS. NOT. EVERYTHING" 
RETURN 

LET R$="WHAT IS. YOUR. OPINION. OF _ 
MONEY" 
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7890 
7900 


7910 
7920 


7930 
7940 


7950 
7960 
7970 
7980 
7990 
8000 
8010 
8020 


8030 
8040 
8050 
8060 
8070 
8080 


8090 
8100 


8110 
8120 


ВЕТОВМ 

LET R$="YOU. SHOULD. HAVE. A. NICE 
NAME LIKE ””751000””” 

RETURN 

LET R$=”YOUR. МАМЕ IS. АМ AWFUL.. 
NAME” 

RETURN 

LET R$="NAMES ARE. UNIMPORTANT. _ 
PLEASE. CHANGE. THE. SUBJECT" 
RETURN 

LET R$="PLEASE CHANGE. THE. SUBJECT" 
RETURN 

LET Н5- ОН, DRY. UP" 

RETURN 

LET R$="THE WORLD. MIGHT END. IF. 
RETURN 

LET R$="WHY ARE. YOU. TALKING 
ABOUT MY." 

RETURN 

LET R$="TELL ME. ABOUT. YOUR.” 
RETURN 

LET R$="STOP BEING. NOSEY" 

RETURN 

LET R$="PLEASE DO. NOT. TRY. ТО. 
TELL..ME. YOU CAN. THINK" 

RETURN 

LET R$="IT WOULD. ВЕ JUST. LIKE. YOUL 
ТО, ІНІМЕ, У 

RETURN 

LET R$="| THINK. YOU. ARE. STUPID” 


8130 
8140 


8150 
8160 


8170 
8180 


8190 
8200 


8210 
8220 


8230 
8240 


8250 
8260 


8270 
8280 


8290 
8300 


8310 
8320 
8330 
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RETURN 

LET R$="COMPUTERS ARE. THE. HIGHEST. . 
FORM. ӨР. INTELLIGENT ПЕЕ” 

RETURN 

LET H$—"WOULD YOU. LIKE. TO ВЕ А. 
COMPUTER" 

RETURN 

LET R$="COMPUTERS ARE. CLEVER. _ 
UNLIKE YOU” 

RETURN 

LET R$="| АМ А 151000 AND. PROUD... 
Get 

RETURN 

LET R$="WHY_DID_YOU_MENTION_THE_ 
TS" +B$WCS+K TO CS+K+1) 

RETURN 

LET R=" WOULD... ТОЧ. ПКЕ ТО Ве А. 
TS" --B$(CS--K TO CS+K+1) 

RETURN 

LET R$="WHO WOULD. WANT. YOU. Аз. 
A. FRIEND" 

RETURN 

LET R$=" YOU HAVE TO ВЕ. NICE ШКЕ. 
ME. TO. HAVE. FRIENDS” 

RETURN 

LET .R$="WHY DO YOU. BRING, UP THE ` 
SUBJECT ОҒ FRIENDS” 

RETURN 

LET R=" WHY DO YOU." 

RETURN 
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8340 LET R$="WHAT. MAKES. YOU. " 
8350 RETURN 

8360 LET R$=”OH, SHUT. UP” 

8370 RETURN 

8380 LET R$="WHY DO. YOU. SAY |. " 
8390 RETURN 

8400 LET R$="WHO, ME. ” 

8410 RETURN 

8420 LET R$="| LIKE TALKING. ABOUT. МЕ” 
8430 RETURN 

9900 SAVE ”PSYCHIATRISEE 

9910 RUN 


Sample Run 


HELLO, | AM YOUR TS1000 COMPUTER 
PSYCHIATRIST. WHAT IS YOUR NAME? 


DILWYN JONES 

THAT IS AN AWFUL NAME 

WHAT IS YOUR PROBLEM? 

| AM WORKING TOO HARD 

WHY ARE YOU WORKING TOO HARD 
MY TS1000 IS LAZY 

WOULD YOU LIKE TO BE А TS1000 


| AM AFRAID YOUR TIME IS UP, 
THANK GOODNESS 


GOODBYE FOR NOW. 


Eliza / 55 


Programming Notes 


The first part of the listing is the initialization and introduction. 
Lines 5 and 6 set the time, the following few lines print a 
brief introduction and ask you to enter your name. Note, by 
the way, the scrolling display. This causes problems: if we 
wish to print anything longer than 32 characters we'll need to 
split up the strings or use special routines to avoid running out 
of screen memory, as we'll see later. 

After you've entered your name, the program ““com- 
ments”” on it and then moves on to the main section of the 
program, from line 90. 55 is a pointer string and is reset to a 
null set, ready for its next tour of duty. The human's input is 
entered in line 100. If you enter GOODBYE, the program 
jumps to the GOODBYE routine at line 2080. This is a very 
brief routine, by all means add to it if you like. If you did not 
enter GOODBYE, the program checks if your time is up, and 
jumps to the routine at line 2000 if you've had your five 
minutes. 

Line 110 checks if your input has a permissible number 
of characters. You are allowed, you'll recall, up to 255 char- 
acters, but not more because the code of characters in the 
pointers’ string, S$ refer to elements in the input string, and 
the code of any character can only have a value of up to 255. 

The routine in lines 112 to 119 is designed to print the 
input string A$ in blocks of 32 in between scrolling to prevent 
running out of screen to print on. Line 123 makes a copy of 
AS for the computer, with a space at either end to simplify 
the processing, since most of the words used to scan the input 
string have spaces included to prevent, say, the word IF being 
detected in the word SIFT, which would complicate matters 
enormously. 

The routine in lines 130 to 160 removes punctuation from 
B$, to be replaced with spaces, to simplify processing. The 
position of the space (effectively where the words begin and 
end) is noted by adding the character corresponding to the 
position to S$. The code from line 200 looks for the keywords 
in B$ and if it finds one that it recognizes, jumps to line 1000 
to determine the reply, and conjugates it if possible or nec- 
essary. 
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However, if no keyword is found, the routine at line 280 
chooses one of six ‘open’ or general replies that are suitable 
for most inputs. This then goes to line 1500 for printing/ 
scrolling as before. The reply routine at line 1000 starts by 
selecting a reply using the computed GOSUB facility to assign 
a string, depending on which keyword was detected. If the 
last character in the reply string, R$, is a space, this means 
that the reply is, as yet, incomplete, and further information 
is required to finish the reply. This must come from B$, the 
working copy of the input string. If this is not required, the 
program goes to 1500 to print the reply, but otherwise carries 
straight on by extracting the information from the part of В5 
after the keyword, taking care not to cause errors by trying to 
extract information which is not there. 

The reply is then conjugated. This is quite complicated, 
as there are many variables involved. Basically, if a word is 
found which can be conjugated (e.g. ME used as the object 
of a verb would become YOU where appropriate), a suitable 
word or words is selected and used to replace the original 
words. 

The rest of the program consists of data assignment sub- 
routines, and you must be careful if you decide to change line 
numbers, since the computed GOSUB facility is used. 
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Four in a Row 


This game is played by dropping your piece in at the top and 
allowing it to fall until it comes to rest on top of the column 
of pieces. You have to create a line of four in any direction. 
The computer is programmed to play defensively, so it can 
make mistakes, but also has the potential for victory. Line 150 
is the graphics on the following keys: 1, A, T, 4, 5, 7, 2, E, 
repeated twice. Play the game in FAST mode. 
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Program 8: Four па Row 


10 GOTO 1000 
20 LETE=C 
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30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 


160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 


LET E=E+N 
IF AS(E)< » C$ THEN GOTO 70 

LET K=K+1 

GOTO 30 

RETURN 

PRINT AT 0,11; 

FOR A=141 TO 1 STEP —1Ø 

PRINT TAB 11;A$(A TO A+9) 

NEXT A 

RETURN 

созив 80 

LET X$="C3DBC3DB" (INT (RND:4) + 1 ТО ) 
LET B$=" Раба DP Виа ИЕ | е 
(INT (RND:8)+1 TO ) 

PRINT АТ 18,11; "Хесе, 

PAUSE 4Е4 

LET 7%-ІМКЕҮ% 

PRINT AT 18,11; .. aa ei 8 

LET Сф="0" 

LET D=VAL 2% 

LET C=H(D)*10+D+1 

LET H(D) =H(D)+1 

LET A$C) =C$ 

GOSUB 80 

FOR Х=1 TO 4 

LET К-0 

LET N=CODE X$(X) —30 

GOSUB 20 

LET N=-N 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
475 
477 
480 
483 
485 
487 
490 
492 
494 
496 
498 
500 
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GOSUB 20 

IF К> 2 THEN PRINT AT 18,12; Ж ШЕТІ НС 
NEXT X 

FOR T=1 ТО 2 


LET C$=(”O” AND Т-2) + (9) AND T=1) 
FOR В-1 ТО 8 

LET D=CODE B$(B) 

LET C=H(D) *10+0+1 

FOR Х=1 ТО 4 

LET К-0 

LET N=CODE X$(X) — 30 
GOSUB 20 

LET N=-N 

GOSUB 20 

IF к> 2 THEN GOTO 620 
NEXT X 

NEXT B 

NEXT T 

DIM D(8) 

FOR Т-1 ТОЗ 

IF Т=3 THEN FOR R=-1 ТО 2 
FOR B=1 ТО 8 

LET D=CODE B3(B) 

LET C=(H(D)+(T=1))*10+D+1 
IF T< >3 THEN GOTO 505 

IF D(D) =R THEN GOTO 570 
NEXT B 

NEXT R 

GOTO 600 
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505 
510 
919 
520 
530 
540 
545 
547 


550 
555 
560 
565 
570 
580 
590 
595 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


ҒОН Х=1 ТО 4 
LET N=CODE X$(X) — 30 

LET K=Ø 

GOSUB 20 

LET М--М 

GOSUB 20 

IF Т=3 AND K» 1 THEN GOTO 570 
IF T=2 AND K» 1 AND D(D)=Ø 
THEN LET D(D)- — 1 

IF T=1 AND К> 1 THEN LET D(D)=1 
IF K>2 THEN LET D(D)=2 

NEXT X 

IF T< >3 THEN GOTO 590 

LET С5- B] 

GOTO 620 

МЕХТ 8 

NEXT T 

LET D=INT (RND:8)+1 

LET C=H(D)+10+D+1 

LET A$(C)= "T9" 

LET H(D)=H(D)+1 

GOSUB 80 

LET C$= W 

FOR X=1 TO 4 

LET K=0 

LET N=CODE Х%(Х)-30 

GOSUB 20 

LET М--М 

GOSUB 20 


720 
730 
740 
1200 


1010 
1020 
1030 
1040 
1050 
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IF K>2 THEN PRINT AT 18,13; ITO 
NEXT X 

GOTO 140 

LET А$='# 12345678 BE BB + + + + + + + + 
++++++++@ ++++++++ + + 
++++++@  ++++++++ Е HHHH 
+ ++ ++++++++  ++++++++ 
Ван + EB ++ ++ ++ + + 
++ ++ + + + ВВ+ + + ++ 


++ + + + + 12345678 ” 
DIM H(8) 

FOR Н=1 ТО 8 

LET H(H) =1 

NEXT H 

GOTO 130 


Othello/Reversi 


This Othello program uses a two-ply search which means it 
plays extremely well, but fairly slowly. You'll find it puts up 
a challenging defense. 

You move by entering the letter and number of the square 
in which you want to put your piece. You are the O’s, the 
computer is the inverse O’s. 


Program 9: Othello/Reversi 
10 GOTO 4000 


1000 REM 

1010 SLOW 

1020 PRINT AT 6,11; 

1030 FOR А=1 ТО 91 STEP 10 
1040 PRINT TAB 11:45 (A ТО A+9) 
1050 NEXT A 

1060 RETURN 

2000 REM 
2005 FAST 

2010 LET W=0 

2020 LET J=60 

2030 FOR K=1 TO 60 


62 


2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 


2160 
2170 
2175 
2180 
2190 
2200 
2205 
2210 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
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LET Z$=AS 

LET B=CODE Е$(К) – 140 

IF A$(B) < > "." THEN GOTO 2400 

FOR Х=1 ТО 8 

LET N=CODE D$(X) -50 

LET E=0 

LET F=B 

IF AS(F+N) <> "0" THEN GOTO 2150 
LET Е=1 

LET F=F+N 

GOTO 2110 

IF AS(F+N) <> "f" OR E=Ø THEN GOTO 
2190 

FOR A=B TOF STEP N 

LET Z$(A) = 10” 

LET W=1 

NEXT A 

NEXT X 

IF A$=Z$ THEN GOTO 2400 

LET K$=Z$ 

FOR L=1 ТО 60 

LET C=CODE ES(L) - 140 

IF Z$(C) < >"." THEN GOTO 2390 

FOR Y-1 TO8 

LET M=CODE D$(Y) —50 

LET G=Ø 

LET H=C 

IF Z$ (H+M)< > “ll” THEN GOTO 2330 
LET G=1 
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2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 


2430 
2440 
3000 
3010 
3020 
3030 


3040 
3050 


3060 


3070 
3080 
3090 
3100 


LET H=H+M 
GOTO 2290 

IF Z$(H-- M) < > ”O” OR G=Ø THEN GOTO 2380 
IF K-L>=J THEN GOTO 2400 


LET J=K-L 

LET К5- 25 

GOTO 2400 

МЕХТ У 

NEXT L 

IF K> =Ј+60 THEN GOTO 2420 
NEXT K 


IF J=6Ø AND W=Q THEN PRINT АТ 17,11: 
"GAME. ОУЕН Т 

LET A$=K$ 

RETURN 

REM 

PRINT АТ 17,6; “YOUR. MOVE. (ЕС1- G3)" 
INPUT G$ 

PRINT AT ТУ Cini sa san 
IF G$="PASS THEN RETURN 

IF LEN G$« >2 OR G$<"A” OR G$> 

"|" THEN GOTO 3000 

LET B=1Ø* (CODE G$(1)—37)-- CODE G$(2) 
—27 

IF A$(B) < >"." THEN GOTO 3000 

FOR X-1 TO8 

LET N=CODE 05(Х) —50 

LET E=0 


3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
4000 
4010 


4020 
4030 


4040 


4050 
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LET F=B 

IF AKF+N)« > "Tel THEN GOTO 3160 

LET E=1 

LET F=F+N 

СОТО 3120 

IF АФ(Ғ--М)< > "O" OR E=Ø THEN GOTO 3200 
FOR A=B TO F STEP N 


LET A$(A)="0" 

NEXT A 

NEXT X 

RETURN 

REM 

LET А$=” 12345678 А........ АВ........ ВС 
Жү. ca: СО. BO.. DE... ОВЕ . EF....... FG 
У ОН........Н 12345678 ” 


LET D$="BCDLNVWX" 

LET Е5- "Е FAST. THEN MASn HM 
STOP. SGN MM STEP АТМ Т 
Шсм LPRINT [A Tel LLIST LN. TAB 
EXP ЕШІ/ді KWAACS EMEN =: 
BICHRS. OR. AGIANSOR. ШАТ NOT 058. B 
MØ sow B то < = 57-5 Ta). 
AND. ША 

PRINT AT 2,0;"DO. YOU. WANT. TO. GO. 
FIRST(Y ОВ. №)?” 

INPUT F$ 


“Note that there is a total of 60 keystrokes in line 4030. АП words 
are function words, DO NOT type them in as separate letters—i.e., 
“МОТ” is actually a single keystroke. 
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4060 


4070 
4080 
4090 
4100 
4110 
4120 


PRINT AT 2,0" — _ REVERSI. BY _ 
GRAHAM CHARLTON. . |." 

IF F$="Y" THEN GOTO 4100 
GOSUB 100 

GOSUB 2000 

GOSUB 100 

GOSUB 3000 

GOTO 4080 





10. 


Fox and Geese 


You are the geese (the O’s) and the computer is the fox (the 
inverse O’s). You and the fox can move in any direction. The 
fox can capture geese by jumping over them. Your task is to 
make it impossible for the fox to move. Run the program in 
SLOW. When you’ve mastered the game in its present form, 
try to rewrite it to get rid of the diagonal moves from the 
geese, or reverse the whole game, so you are the fox, and the 
computer controls the geese. If you find it too difficult to work 
out how to alter the program to get rid of diagonal moves, 
check out the lines after the end of the program. 





Program 10: Fox and Geese 


10 LET А5- "ШЕЕ В -EE 
АВ | + + MWEN +++ + +00) 
+ + + + + + + ВИЗОООООООЕЩАЩ 8 OOO 
_|_2О | [ојејеј | С 1234567 @ 


67 
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20 
30 
40 
50 
60 
70 
80 
100 
110 
120 
130 
140 
150 


160 
170 
180 
200 
210 


220 
230 
240 
250 
260 
270 
280 
290 
300 


LET 2=32 

GOTO 100 

PRINT AT 6,11; 

FOR A=1 TO 73 STEP 9 

PRINT TAB 11;A$(A ТО A+8) 

NEXT A 

RETURN 

GOSUB 40 

INPUT G$ 

IF LEN G$< >4 THEN GOTO 11Ø 

LET G=9« (CODE G$(1)-37)+CODE G$(2)-27 
LET Н=9% (CODE G$(3)-37)+CODE G$(4) - 27 
IF AS(G)< > "О" OR AS(H)< > ”+” THEN GOTO 
110 


LET AS$(G)=""+" 
LET A$(H)="0" 

GOSUB 40 

LET 0-0 

LET B$="CUWDNLVECUWDNLVE" (INT (RND::8) 
+1 TO ) 

ЕОВ Х=1 ТО 8 


LET N=CODE B$(X) — 50 

IF AS(Z+N) < > ”O” THEN GOTO 330 
IF A$(Z+2*N)< >”--” THEN GOTO 330 
LET A$(Z)="+" 

LET A$(Z+N)="+" 

LET A$(Z+2*N)= "Tel 

LET Q=1 

LET Z=Z+2*N 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


210 
220 
350 
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GOSUB 40 

СОТО 220 

NEXT X 

IF Q=1 THEN СОТО 110 

FOR X=1 TO 8 

LET N=CODE B$(X) — 50 

IF ASIZ+N)« > ”+” THEN GOTO 420 
LET A$(Z)="+" 

LET AS(Z+N)='Te)” 

LET Z=Z+N 

GOTO 100 

NEXT X 

PRINT AT 18,12; КӨШЕТІ Ү 


LET B$="LCWNLCWN" (INT (RND#4)+1 TO  ) 
FOR X=1 TO 4 
FOR X=1 TO 4 


11 


Pairs 


In this game, it is your memory against the computer’s, and 
the computer plays the game like an elephant. When we were 
developing this game, we lost one game 23 to 3. 

Hidden behind the graphic А'5 (the backs of the cards) 
are four each of the inverse characters N to Z. You choose 
one of the squares (or cards) which is then turned over, show- 
ing what is on the other side. You then choose another card, 
and if they are the same you score a point, and the cards are 
removed. You get another go after a correct guess. 

If the cards do not match, they are turned over again, and 
it is the other player`s turn. One unusual aspect of the program 
is that it is so slow in some parts, it goes into FAST mode to 
do some thinking, but at one other point in the SLOW mode, 
it needs a dummy loop to slow it down. 


и б се б Го рт >» ~ "c 
4 JE MWN RENN HE HE HE + 
A BÈ D Ere rn I.S L S 
YOU HAVE З I HAVE а 
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Program 11: Pairs 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


FAST 

GOTO 1000 

SLOW 

GOSUB 3000 

INPUT G$ 

LET G=VAL G$(1) 

LET H=CODE G$(2)—37 
PRINT АТ G+2 H+2;B$(G,H) 
LET C$(G,H)=BS(G,H) 
INPUT P$ 

LET P=VAL P$(1) 

LET R=CODE P$(2)-37 
PRINT AT P+2,R*2:B$(P,R) 
LET C$(P,R)=B$(P,R) 

IF B$(G,H) < > B$(P,R) THEN СОТО 240 
LET Z=Z+1 

PRINT AT 2«G,2«H;". " 
PRINT AT 2*P,2«R;". " 
LET B$(G,H)=” " 

LET B$(P,R)-" " 

LET C$(G,H)=" " 

LET C$(P,R)=”..” 

GOTO 40 

GOSUB 2000 

PRINT AT 2*G,2«H;" ES" 
PRINT AT 2:P 2:R '' 
IF Y+Z=26 THEN STOP 
GOSUB 3000 
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290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
450 
460 
470 


480 
490 
500 
510 
520 
530 
540 
550 


580 
590 
600 


FAST 

FOR L=1 ТО 13 

LET D$=A$(L) 

LET Е=@ 

FOR W=1 TO 4 

FOR X=1 TO 13 

IF C$(W,X) < > D$ THEN GOTO 400 
LET F=F+1 

IF F=2 THEN GOTO 580 

LET G=W 

LET H=X 

NEXT X 

NEXT W 

NEXT L 

LET G=INT (АМО»4) + 1 

LET H=INT (RND::13)+1 

IF B$(G,H)-". " OR C$(G,H)< > 
по" THEN GOTO 450 

FOR W=1 TO 4 

FOR X=1 TO 13 

IF C$(W,X)=B$(G,H) THEN GOTO 580 
NEXT X 

NEXT W 

LET W=INT (АМО»4) + 1 

LET X=INT («АМО « 13) +1 


IF BS(W,X)="." ОВ C$(W,X)< >” _ 
"ОВ (W=G AND X=H) THEN GOTO 590 
SLOW 

GOSUB 2000 


PRINT AT G*2,H*2; B$(G,H) 


610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 


1110 
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GOSUB 2000 

PRINT AT Wx2,X«2:B$(W,X) 

GOSUB 2000 

IF B$(G,H) < > BS(W,X) THEN GOTO 730 
LET Y=Y+1 

PRINT AT С»2,Н%2;" _" 

PRINT AT У/х2,Х«2;” ” 

LET B$(G,H)-". " 

LET C$(G,H)-". " 

LET C$(W,X)2" " 

LET B$(W,X)=” _” 

GOTO 270 

PRINT AT G+2,H+2; '/ 

PRINT AT W:2 X+2; 8, 

LET C$(G,H)=B$(G,H) 

LET C$(W,X)- BS(W,X) 

GOTO 40 

LET ^$- Ten el Eee eae," 
DIM B$(4,13) 

FOR А=1 TO 4 

FOR B=1 TO 13 

LET C=INT (ВМО4) + 1 

LET D=INT (АМО #13) +1 

IF B$(C,D) <>" " THEN GOTO 1040 
LET B$(C,D)=AS$(B) 

NEXT B 

NEXT A 

PRINT" A ВС D EF G.-H. I 
LJ EEE MM 

ЕОВ А=1 ТО 4 
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1120 PRINT 

1130 PRINT А; 

1144 FOR B-1 TO 13 
1150 PRINT " 8 


1160 NEXT B 

1170 PRINT " “А, 

1180 NEXT A 

1190 ват ав i. в E FGH 
J u Зе LIM" 


1200 DIM C$(4,13) 

1210 LET Z=0 

1220 LET Y-0 

1240 GOTO 30 

2000 FOR K-1 TO 50 

2010 NEXTK 

2020 RETURN 

3000 PRINT AT 12,0;" YOU. HAVE. "Z.AT 12, 15:01 
HAVE. 'Y 

3010 RETURN 


Four Field Копо 


In this game, you are the O's. Your mission 15 to jump over 
one of your own pieces, onto the сотршег 5 piece, to remove 
it from the board. Apart from a capture, you move one space 
orthogonally. Play this game in SLOW. The display for this 
program fills most of the screen, and looks pretty good. 


роспово 
[е к К К [е] 
BENENE 


oannnnn 





Program 12: Four Field Kono 


10 GOTO 1000 
20 PRINT АТ 0,6; 


75 
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30 
40 
50 
60 
70 
80 
100 
110 
120 
130 
140 
160 


170 


180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


FOR А=1 ТО 93 STEP 18 
PRINT TAB 6:05 
PRINT TAB 6;AS(A TO A+17) 
PRINT TAB 6;С$ 


NEXT A 
RETURN 

GOSUB 20 

PRINT AT 20,11; "Rez Ne" 
INPUT G$ 


PRINT AT 2Ø,11;”. l l _ _ _ _ _ _ п 
IF LEN 0$ < > 4 THEN GOTO 110 

LET С =18» (CODE G$(1)—37)+3*(CODE 
G$(2)-28) +2 

LET Н-18» (CODE G$(3) —37)+3+(CODE 
G$(4)—28)+2 

LET A$(H)=AS(G) 

LET АЧ(С)=" _" 

GOSUB 20 

FOR Е=1 ТО 8 

LET B=E(E) 

IF A$(B) < > "X" THEN GOTO 320 

FOR X=1 TO 12 STEP 3 

IF A$S(B+B(X)) < > "Х” THEN GOTO 310 
IF A$(B--2*B(X)) < > "О" THEN GOTO 310 
LET АЧ(В)=" _" 

LET A$(B+2*B(X))="X" 

LET E(E)=B+2*B(X) 

GOTO 190 

NEXT X 


320 
400 
410 
420 
430 
440 
450 


460 
470 
480 
490 
500 
510 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
1200 
1010 


Four Field Kono / 77 


NEXT Е 

FOR Е=1 ТО 8 

LET B=E(E) 

IF A$(B) « > "X" THEN GOTO 510 

FOR Х=1 ТО 12 STEP 3 

IF A$(B+B(X)< >” "" THEN GOTO 500 

IF A$(B+B(X+1))="0" OR A$(B+B(X+2))="0" 
ОВ A$(B+2+B(X))="0" THEN GOTO 500 

LET A$(B+B(X))=""X" 

LET A$(B)-" " 

LET Е(Е)-В--В(Х) 

GOTO 100 

NEXT X 

NEXT E 

FOR E-1 TO8 

LET В=Е(Е) 

IF A$(B) « » "X" THEN GOTO 700 

FOR Х=1 ТО 12 STEP 3 

IF А%(В--В(Х))< >” "" THEN GOTO 690 

LET А$(В +В(Х)) + "X" 

LET A$(B)-" " 

LET E(E) - B4 B(X) 

GOTO 100 

NEXT X 

NEXT E 

PRINT АТ 20,12; MO ENES) с 

DIM B(12) 

LET ^$-"M ES HE EN HE Р NN Е ШИ EV ЕН 
ВА EE EX HE X HE X HE X HE X Ви EN EE | 
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1220 
1230 
1040 
1050 
1060 


1070 


1080 
1290 
1100 
1110 
1120 
1130 


Bil | x | x HE x HE X HE EH ВИ [el ИЕ 
O | o | О ВЕ o | FG TEB TE o HE 
ОЙ oO | O ВЕ Б TRUE HE EN HE PRH 
BILD EE SS H” 

LET B$-"URXFX;- <;9R<” 

FOR В=1 TO 12 

LET B(B)- CODE В$(В) — 40 

NEXT B 

LET C$ = Bu mm ий Ён кш ий Ён кн Бы ыны 
Ша” 

LET 05 = и Ми НД и m ер =a ед да на од p = 

= | sila Ú 

LET E$=”MJGD41,*” 

DIM E(8) 

FOR E=1 TO 8 

LET E(E)=CODE Е$(Е) 

NEXT E 

GOTO 100 
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Surf Rider 


The object of this game is to surf your pieces (the Н'5) from 
left to right, before the computer has surfed all its C’s across. 
If you land on a wave (column) containing an opponent 5 piece 
or pieces, then the opponent's piece(s) get sent back to the 
start. You have to score exactly the right number to end on 
the finish line, the beach. If you can't move from a dice roll, 
press zero, otherwise press one of the keys І to 6, to surf the 
relevant piece. Play SURF RIDER in SLOW mode. 


PSS COEF GH IL ` 
ЕН + š ка m š г 


| 


AP DAL ORL ESS 
Pa Aa zi Path 


2 || 


DOO 
Mete 


ve hg AA аа а 
OPAPP PE A. 
ЛАЛА LAA AJAN 


OP AD AAA 
wt, 
AKA AAA. 
Ри, 
Р. LAA. 
AAA. l AAA 
wa ЖА Ёа 
LA. 
Be 
ASAI IAS, 
“а ^ 
22 


SA eee 
PPP 
z 
"Y. 
Ya 
PPD ADAN, 


LP PP, 


POPPA POL. 


PAPAL 
аа а аа а 
LAJ 
24 AAA. 


AAAI DAP A DAP 
7 
PPPOP PPP s 


и 
ДА АЗ 
аа аа аа а аа 

a, 


férerrermee 
hri ht AL, 


" МА PA, 
s 77 а 
VIV AAA AD 

[AAA MA. 


m 
NE 
1) 2 
т? 


POPPA PES, 
222 
Li 2422722222 
Ёа LA, 





С: 
"YOU ROLLEC A а SHICH PIECE? 


Program 13: Surf Rider 


10 DIM А(6) 
20 DIM B(6) 


30 PRINT AT 3,10; “NEN DESEN ат 
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40 
50 
60 
70 


80 

90 
100 
110 
120 
130 
140 
150 
160 


170 
180 
190 


200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 


PRINT АТ 16,10; Ad NTE 
GOTO 140 

FOR А=1 ТО 12 

PRINT AT 3-A,10; ES Б БЕ БЕ БЕ БЕ БЕ БЕ БЕ БЕ 
ш 

МЕХТ А 

ЕОВ А=1ТО6 

PRINT АТ A+3,A(A)+1Ø;"H" 

PRINT AT A+9,B(A)+1Ø;"C" 

NEXT A 

RETURN 

GOSUB 60 

LET D=INT (ВМО»6) + 1 

PRINT AT 18,3;’YOU_ROLLED_A_":D;""_ 

— WHICH. PIECE?” 

LET Z$=INKEY$ 

IF Z$="" THEN GOTO 170 

PRINT AT 18,3;” 


1571) а — — — — — — — — — — — — — 


LET G=VAL 75 

IF G=0 THEN GOTO 320 

IF A(GG)+D» 12 THEN GOTO 160 
LET A(G)=A(G)+D 

FOR A=1 TO 6 

IF B(A)=A(G) AND A(G) < > 12 THEN LET B(A)=Ø 
NEXT A 

FOR А=1 TO 6 

IF A(A) < > 12 THEN GOTO 310 
NEXT A 

PRINT AT 18,13; де ДИ О 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
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GOSUB 60 

LET D=INT (RND:6)+1 

PRINT AT 18,11;1 ROLLED А "D 

FOR В=1 TO 6 

IF B(B)+D=12 THEN GOTO 480 

NEXT В 

FOR В=1 TO 6 

FOR A=1 TO 6 

IF B(B)+D=A(A) THEN GOTO 480 

NEXT A 

NEXT B 

FOR С=12—0 ТО 0 STEP - 1 

FOR В=170 6 

IF B(B)=C THEN GOTO 480 

NEXT B 

NEXT C 

СОТО 580 

LET B(B)=B(B)+D 

FOR А=1 TO 6 

IF B(B)=A(A) AND В(В) < > 12 THEN LET A(A)=Ø 
NEXT A 

POUT At EN аа а н 
GOSUB 60 

FOR A=1 ТО 6 

IF B(A) « > 12 THEN GOTO 590 

NEXT A 

PRINT AT 18,4; Ш.О 

co UD gi) SL. nn а ЗЕ Э] a 
GOTO 150 





High Jump 


This board game is somewhat like Checkers, except it is on 
a five by five board, and you move up, down or across, rather 
than diagonally as in Checkers. You move by entering a num- 
ber, then letter of the square you're moving from, then the 
number and letter of the square you're moving to, then press 
ENTER. 

Multiple jumps are allowed. If you capture a computer 
piece, it will ask DO YOU WANT TO JUMP AGAIN. If you 
do, enter ““Ү”, then ENTER and you'll be given another 
jump. If you cannot make a further jump, simply press EN- 
TER and the computer will move. Your pieces are the letter 
О and the computer is the inverse O’s. 


Program 14: High Jump 


10 GOTO 4000 
100 FOR A=19 ТО 83 STEP 16 
110 PRINT AT 1+3x*A/16,8;A$(A ТО A+14) 
120 NEXT A 
125 SLOW 
130 RETURN 
1000  GOSUB 100 
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1010 
1015 
1020 
1230 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 


High Jump / 83 


LET Q=Ø 

FAST 

FOR B=1 TO 12 

LET C=B(B) 

IF A$(C)< > "S" THEN GOTO 1190 
FOR X=1 TO 4 

LET N=CODE B$(X) — 40 

IF AS(C+N)< > ”O” THEN GOTO 1170 
IF A$(C+2*N)< >" " THEN GOTO 1170 
LET A$(C+2+N)=AS$(C) 

LET A$(C)-^ " 

LET A$SKC+N)=” " 

LET B(B)=C+2xN 

LET C=C+2«N 

GOSUB 100 

LET Q=1 

GOTO 1050 

NEXT X 

IF Q=1 THEN GOTO 3010 

NEXT B 

FOR B=1 TO 12 

LET C=B(B) 

IF AS(C) < > "Tel" THEN GOTO 2210 
FOR Х=1 ТО 4 

LET N=CODE B$(X)- 40 

IF АФС+М)< >" "" THEN GOTO 2200 
LET Y$-A$ 

LET Y$(C+N)=Y$(C) 

LET Y$(Cj="_"" 
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2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
3000 
3010 
3020 


FOR А=1 ТО 12 
LET D=C(A) 

IF Y$(D) < > "0" THEN GOTO 2170 
FOR 7-1 TO 4 

LET M=CODE В5(7)- 40 

IF Y$(D+M)< > “Tel” THEN GOTO 2160 
IF Y$(D+2+M)=” " THEN GOTO 2200 
NEXT 2 

NEXT A 

LET А%-Ү% 

GOTO 2300 

МЕХТ Х 

МЕХТ В 

FOR В=1 ТО 12 

LET C=B(B) 

IF A$(C) < > "fel THEN GOTO 2330 
FOR X=1 TO 4 

LET N=CODE В%(Х)-40 

IF AS(C--N) < >" "" THEN GOTO 2320 
LET A$(C+N)=AS$(C) 

LET A$(C)-^ " 

LET B(B)=C+N 

GOTO 3000 

NEXT X 

NEXT B 

PRINT AT 21,12; "Ne ЕЎ w 
GOSUB 100 

PRINT AT 21,12;"YOUR. GO" 

INPUT G$ 


3030 
3040 
3050 


3060 


3070 


3080 


3090 
3100 
3110 
3120 
3130 
3140 


3150 
3160 
3170 
3180 
3190 
3200 


3210 
3220 
4000 


High Јитр / 85 


PRIMT AT 21,12 . . n vi 

IF LEN G$ « >4 THEN GOTO 3010 

LET G=16+(CODE G$(1)—28)--3«(CODE 
G$(2)-37)+1 

LET H=16*(CODE G$(3)-28)--3«(CODE 
G$(4) — 37) - 1 

IF G<1 OR H<1 OR о> 100 OR H> 100 THEN 
GOTO 3010 

IF A$(G)« > "О" OR A$(H)< >” " 

THEN GOTO 3010 

LET A$(H)=AS(G) 

FOR A=1 TO 12 

IF C(A)=G THEN LET C(A)=H 

NEXT A 

LET AS(G)="__” 

IF ABS (Н- Об) < >6 AND ABS (H-G)« > 32 
THEN СОТО 1000 

LET A$((H--Gy2)2". " 

GOSUB 100 

PRINT AT 21,6;"CAN. YOU. JUMP. AGAIN?" 
LET 2$ -INKEYS 

IF Z$="" THEN GOTO 3180 

БИРГЕ 5M. S mE 12.22 2 E> Sm 
IF Z$="Y" THEN GOTO 3010 

GOTO 1010 

LET А%-”ХХХХХХХХХХХХХХХХХХЕ [e] 

ШЕ rey EH [e] ЕН [e] ЕЕ [e] ЕХЕ Ie] ЕН 
[e] ВЕ [e] ЕН [e] HH [e] ЕХЕ [еј ЕЕ [e] 
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4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 


4180 
4190 
4200 


4210 
4220 


WE _ HH OHH O ЙИШ O HE O | E 

ОЖ ОШ o X4 O | O | O В 

ПО О Ихххххххххххххххххх" 

DIM B(12) 

DIM C(12) 

LET В%-”4-»1К8,ОВНЕН” 

FOR B=1 TO 12 

LET B(B)=CODE B$(B) 

LET C(B)=116—B(B) 

NEXT B 

LET C$ =" ii m ий Ён а ий Ён па ий Ён пан ый Кы кн а” 
LET 85- PEPE AP SAP EPP 
PRINT AT 2,9"А В C DE”, 
FOR A=1 TO 5 

PRINT TAB 8:85:ТАВ 6;A;TAB 24:A:TAB 8:C$ 
NEXT A 

PRINT AT 20,9:"А | B. C. D. .E" 
GOSUB 100 

LET B$="SF9/" 

PRINT AT 0,2;"DO. YOU. WANT. TO. GO. 
FIRST?.. YIN” 

LET 7%-ІМКЕҮ% 

IF Z$=""" THEN GOTO 4170 

PRINT AT 0,2;"HIGH. JUMP. BY. GRAHAM _ 
CHARLTON" 

IF Z$="Y" THEN GOTO 3000 

GOTO 1000 


15 


Maze Master 


This fascinating program draws а maze, right before your eyes. 
There will be only one path through the maze, and you travel 
on the line, and not in the spaces as in most maze games. 

You start your conquest of the maze on the left hand side, 
where the small piece is sticking out, and work your way to 
the right hand side. 

The computer only generates the maze, it does not solve 
it. Use the printer to dump the maze onto paper, then solve it 
(if you can) with а pen. This program is good to watch and 
makes а great demonstration program. 
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Program 15: Maze Master 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
170 
180 
190 
200 
210 
220 


230 
240 
250 
260 
270 
280 


FAST 

DIM A$(63,43) 

FOR A=1 TO 63 

LET AS(A,1)="2" 

LET А$(А,2) = "2" 

LET A$(A,42) 2 "2" 

LET A$(A,43) = "2" 

NEXT A 

FOR А=1 TO 43 

LET А$(1,А) = "2" 

LET AS$(2,A)="2" 

LET A$(62,A)="2" 

LET A$(63,A)="2" 

NEXT A 

SLOW 

LET Х=4 

LET Y=4+2+INT (АМО #18) 

PLOT X-1,Y 

PLOT X-2,Y 

LET АБХУ)="2" 

IF A$(X-2, Y) < »". ” AND A$(X-2,Y) 
<>" " AND AS(X,Y+2)<>" " AND 
АФХУ-2)< >" " THEN GOTO 400 
UNPLOT X,Y 

PLOT X,Y 

LET R=INT (RND::4) 

LET C=X+2«(R=Q)—2(R=1) 

LET D=Y+2*(R=2)—2*(R=3) 

IF A$(C,D) < >" " THEN GOTO 230 


290 
300 
310 
320 
340 
350 
360 
370 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
540 
550 
560 
590 
600 
610 
640 
650 
660 
690 
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LET E=(C+X)/2 

LET F=(D+Y)/2 

LET A$(C,D)= "1" 

LET AS(E,F)="1" 

PLOT E,F 

LET X=C 

LET Y-D 

GOTO 220 

LET АЗХУ)="2" 

PLOT X,Y 

IF AS(X-- 1, Y) 21" THEN GOTO 500 
IF AS(X—1,Y)='1" THEN GOTO 550 
IF AS(X,Y+1)="1" THEN GOTO 600 
IF AS(X,Y-1)="1" THEN GOTO 650 
LET Y=4+2+INT (RND:18) 

PLOT 61,Y 

PLOT 62,Y 

STOP 

LET AS$(X+1,Y)="2" 

LET X=X+2 

GOTO 220 

LET A(X-1,Y)="2" 

LET Х-Х-2 

GOTO 220 

LET AS(X,Y+1)=""2" 

LET Y=Y+2 

GOTO 220 

LET AS(X,Y—1)="2" 

LET Y=Y-2 

GOTO 220 


16 


Zombies 


You are trapped on an island inhabited by human-hating zom- 
bies (the plus signs). Your only hope of salvation is to lure 
them into the swamps (graphic A’s), where they will drown 
most horribly. The zombies are pretty dumb, so they don’t 
see the swamps until it is too late. However, they do see you, 
and head towards you whenever they can. When they get you, 
they'll pounce, and the game will be over. Wait until all the 
surviving plus signs have moved before you enter your move. 
You move by using the keys “5”, “6”, “7” and “8” and 
you move in the direction of the arrows on those keys. 


М 
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Program 16: Zombies 


10 
20 
30 
40 
50 


60 


70 
80 
90 
120 
110 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


GOTO 1000 

LET Z$=INKEY$ 

IF Z$=” " THEN GOTO 20 

PRINT AT E.F;" І” 

LET E=E+(Z$=”6” AND Е<20)-(7%-”7” AND 
Е>1) 

LET F=F+(Z$="8" AND F<3Ø)-(Z$="5" AND 
F1) 

PRINT АТ EF; ' 

FOR A-1 TO 20 

IF A(A)=Ø THEN GOTO 190 

PRINT AT А(А),В(А); В" 

IF ABS (Е-А(А)) > ABS (F—B(A)) THEN GOTO 
140 

LET B(A) - B(A) - (B(A) > F) -- (B(A) « Р) 

GOTO 150 

LET A(A)- A(A) - (A(A) > E) + (A(A) СЕ) 

PRINT АТ A(A),B(A); 

IF VAL A$=151 THEN GOTO 210 

IF VAL A$—8 THEN LET A(A)=Q 

IF A(A) THEN PRINT "+" 

NEXT A 

GOTO 20 

FOR А=140 TO 191 

PRINT AT E,F;CHRS А 

NEXT A 

STOP 
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1200 


1010 
1020 


1030 
1040 


1050 


1060 
1070 
1080 
1090 
1100 
1110 


1120 
1130 
1140 
1150 
1160 


1170 
1180 
1190 
1200 


PRINT ''@ Б ЫБ БЕ БЕ БЕ БЕ ШЕ БЕ БЕ ШЕ БЕ SSS 
БЫ БЕ КЕ КЕ КӨ БЕ КЕ КЕ КЕ КЕ БЕ КЕ КЕ ЕЕ 

Ж” 

FOR А-1 ТО 20 

PRINT "2 І І] nn 
EENHEBNHNNBHEHEHBBEET 
NEXT A 

PRINT "БЕБРББЕБИБНББИИ БЕ БЕ SSS 
ЖЫ БЕ КЫ БЕ БЕ КЕ БЕ БЕ КЕ КӨ БЕ КЕ EE ШЕ ШЕ 
ве" 

LET A$="PEEK (PEEK 16398 +256*РЕЕК 
16399)" 

DIM A(29) 

DIM B(2Q) 

LET Е=11 

LET F=16 

FOR A-1 TO 30 

PRINT AT INT (ВМО+16) +2, 

INT (RND«27) 42; 8" 

NEXT A 

FOR A=1 TO 20 

LET A(A)=11+INT (RND*9)*SGN(RND - 5) 
LET B(A)=16+INT (RND+14) #SGN (RND —.5) 
IF A(A) 7 AND А(А) < 15 AND B(A)» 11 AND 
B(A) « 20 THEN GOTO 1140 

PRINT АТ A(A),B(A);" +” 

NEXT A 

PRINT АТ E F: ЕР 

GOTO 20 
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Poker Dice 


Your Timex Sinclair computer always goes first in this version 
of Poker Dice. Lines 1000 to 1070 set up the variables and 
arrays, with 1000 reading “S9TJOKA””. Lines 20 to 40 are 
those which produce a random throw. 

Lines 50 to 150 are for the computer’s turn, with the 
subroutine from 500 to 580 deciding on whether it wishes to 
throw some of the dice again. You may wish to add a delay 
loop here to give the impression the computer is ““thinking 
hard.” 

Lines 230 to 310 are for the player. If you wish to throw 
dice two, three and four again, enter “234”. Enter “0” if 
you do not wish to change any of them. 

You may like to add a routine to find out who has won. 
This is liable to be longer than the program which plays the 
game, and pretty slow besides. 

After each game, the computer pauses for a short while, 
then begins a new game. 


TS1000 FLAYER 
Ei E dH dE Å m эш Е & € 
їй ur šE 8 m (а! m2 m3 = 
u aB oid зё М 


93 


94 / Chapter 17 


Program 17: Poker Dice 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


сото 1000 

LET А(А) = МТ (ВМО»6) + 1 
LET B$(2*A)=A$(A(A)) 
RETURN 

FOR A=1 TO 5 

GOSUB 20 

LET В(А(А))--В(А(А))--1 
NEXT A 

PRINT TAB 19:85 

PRINT 

FOR G=1 ТО 2 

GOSUB 500 

PRINT TAB 10:85 

PRINT 

NEXT G 

PRINT TAB 12; "PLAYER" 
PRINT 

FOR C=1 TO 5 

LET C$(2+C)=A$ (INT (ВМО»6) + 1) 
NEXT C 

PRINT TAB 10:С5 

PRINT 

FOR G=1 TO 2 

INPUT D$ 

IF D$="Ø" THEN GOTO 300 
FOR С=1 ТО LEN D$ 

LET C$(2*VAL D$(C))=AS(INT (RND::6)+1) 
NEXT C 


290 
300 
310 
320 
330 
340 
350 
500 
510 
520 
530 
535 
540 
550 
560 
570 
580 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
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PRINT TAB 10;C$ 
PRINT 

NEXT G 

FOR A-1 TO 200 

NEXT A 

CLS 

RUN 

DIM R(6) 

FOR B-1 TO6 

IF B(B) «2 THEN LET R(B)- | 
NEXT B 

DIM B(6) 

FOR A=1 ТО 5 

IF R(A(A) 21 THEN GOSUB 20 
LET B(A(A)) = B(A(A)) +1 
NEXT A 

RETURN 

LET A$- "ИЕ, 
DIM B$(1Ø) 

DIM A(5) 

DIM B(6) 

DIM С%(10) 

PRINT TAB 13;"TS1000" 
PRINT 

GOTO 50 


18 


Antimind 


Instead of setting up a code for you to guess, as in most 
computer games of MASTERMIND, this program sets the 
computer to solving the code you have given it. 

Your four-digit code must be made up from the numbers 
one to six. Once the computer has made a guess, enter its 
score as a single string (such as “21” or **Ø3""), the first digit 
being the number of ‘blacks’ (correct digit in correct place), 
the second being the ‘whites’ (correct digit, but not in the right 
position). 

The program is rather slow. It can take up to four minutes 
to make a decision (although this is most unlikely), although 
most moves will take about a minute. At times, it can decide 
in seconds. The computer can take up to nine guesses to crack 
your code. Line 350 is just there to get your hopes up. Always 
run the program in FAST. 

The main lines are 240 and 260, which allow the computer 
to cope with codes which have repeated digits, and lines 370 
to 400 which speed the program up by jumping out of loops. 
If you cheat, line 450 will tell you so. The loops Z,Y,W and 
X correspond to each digit in the code. You may change the 
program so you can have a code with the digits from one to 
nine in it. Just change lines 30, 70, 80, 90 and 100. This, 
however, will make the game very slow. 
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BLRC WHITE 
e a 


m 2 ES xh = 
= = == ка å 
Э san а 1 
+ за d a m 
423 25 = i 
і = © 4 = = 
5 = а 4 zi e 
I GUESSED YOUR CODE IN 7 TRIES 
Program 18: Antimind 
10 PRINT TAB 8;' EWAN WHITE” 
20 DIM A(1Ø,5) 
30 LET Z$='123456123456” (INT (RND:6)+1 ТО) 
40 LET S-1 
50 LET G=1 
60 LET Q=1 
70 FORZ=STO6 
80 FOR Y=S TO 6 
9) FOR X=S TO 6 
100 FOR W=S TO 6 
110 LET A(G,1)=Z 
120 LET A(G,2)=Y 
130 LET A(G,3)=X 
140 LET A(G,4)=W 
150 IF О=1 THEN GOTO 290 
160 FOR T=1 TO G-1 
170 LET E-4 
180 LET K-A(T,1) 
190 LET L=A(T,2) 
200 LET M=A(T,3) 
210 LET N=A(T,4) 
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220 
230 
240 


250 
260 
270 
280 
290 


300 
310 
320 
330 
340 
350 
360 


370 
380 
390 
400 
410 
420 
430 
440 
450 


FOR P=1 ТО 4 

LET R=A(G,P) 

LET E=E-(R< >К AND R< >L AND R< >м 
AND R< >N) 

NEXT P 

LET E=E+9+((Z=K)+(Y=L)+(X=M)+(W=N)) 
IF E< >A(T,5) THEN GOTO 410 

NEXT T 

PRINT АТ G,Øø;Z$(Z);" "2500; ":25(Х); 
t Z$ (W): 

INPUT A$ 

PRINT *_ ФАР — | _ AN) 

LET А(6,5)= VAL A$ 

LET 0-0 

LET G=G+1 

IF G=11 THEN PRINT "| GIVE UP”;D 

IF VAL А5=40 THEN PRINT ,,’’|__ GUESSED _ 
YOUR. CODE IN. “G—-1;"...TRIES“:D 

IF VAL А5=0 THEN (ЕТ 5=5+1 

IF VAL А5<10 THEN GOTO 440 

IF VAL А5<20 THEN GOTO 430 

IF VAL А5<30 THEN GOTO 420 

NEXT W 

NEXT X 

NEXT Y 

NEXT Z 

PRINT ,,"| THINK_YOU_CHEATED”:D 


In this computer adaptation of an allegedly ancient oriental 
game, you have to take a number of objects away from those 
left in front of you, trying to be the player who removes the 
last object in order to win. There is a maximum number you 
can take on any move, and in this program the maximum lies 
between three and five. The computer sets the maximum for 
each game. 

The algorithm used is very simple. You'll see in line 180 
that if the computer sees it is in a losing position, it sends 
control to line 240 where it subtracts a random number of 
pieces. You may wish to add a couple of lines to make it 
deliberately make mistakes to give you more chance of win- 
ning. On your turn, just press the key relating to the number 
of pieces you want to remove. 


EE: ЕЗ == 
= sa ti 3 Е 
в “~ g = E E: 


THERE ARE 25 LEFT, THE MAXIMLUNM 
YOU CAN TAKE Із 5 
ном MANY WILL YOU TAKE? 
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Program 19: Мип 


10 
20 
30 
40 
50 
60 
70 


80 
90 


120 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


LET A=INT (RND#12)+20 
LET B=INT (RND::3)+3 


LET D=B+1 
CLS 

IF A=Ø THEN PRINT AT 10,13; ENQ 
GOSUB 260 

PRINT АТ 10,0; THERE. ARE. ”А;” LEFT, 


THE. МАХІМУМ” 
PRINT AT 12,6;"YOU. CAN. TAKE. IS. "В 
PRINT AT 14,4;"HOW. MANY. WILL. YOU. 
TAKE?" 

IF ІМКЕҮ%-”” THEN GOTO 100 

LET C=VAL INKEY$ 

LET A=A-C 

LET N=A 

CLS 

IF A=Ø THEN PRINT AT 10,12; ӨЕ ФЛ": О 
GOSUB 260 

LET С-0 

IF INT (A/D)*D=A THEN GOTO 240 

LET А-А-(А-ІМТ (A/D)+D) 

PRINT АТ 10,12;"|_TOOK_";N—A 

FOR E=1 TO 50 

NEXT Е 

GOTO 40 

LET A—A-INT (RND+B)-1 

GOTO 204 


260 
270 
280 
290 


FOR E=1 TO A 

PRINT "ЕЈ_________ à 
NEXT E 

RETURN 
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Hundred Up 


In this game, you and your computer take turns to throw a die 
as many times as you like, each time adding the result of the 
throw to your score. 

However, if you lose all the points you have scored on 
that tum. You may stop throwing at any time, keeping all the 
points to date, and then it is your opponent's turn. The first 
to score 100 points wins. 

The computer's thinking is containing in line 320. Неге, 
the computer will throw if it is more than 30 behind, its score 
is less than 13 for this go, it has had less than two throws, 
the player has more than 86. It will stop if it has more than 
100. Try different strategies in this line, to see the effect this 
has on the computer's game. To play, just press “Y” or “М”? 
to the question asked by line 90. 


11 0 
11 0 
23 15 
33 29 
46 44 
59 58 


Program 20: Hundred Up 


10 LET A-0 
20 LET B-0 


102 


30 
40 
50 
60 
70 
80 
90 


100 
110 
120 


130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


240 
250 
260 
270 
280 
290 
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LET E=@ 

PRINT AT 0,7; DENMEN TAB 20; ESN 
LET С=0 

LET D=Ø 

LET Ғ-0 

LET E=E+1 

PRINT AT 21,4; "PRESS. Y. TO. ROLL. МОТО. 
STOP" 

LET Z$=INKEY$ 

IF Z$="" THEN GOTO 100 

PRINT ATE AU аа 
IF Z$="N" THEN GOTO 210 

PRINT AT 2,9:"' ^" 

LET G=INT (RND:6)+1 

IF G=1 THEN GOTO 200 

LET D=D+G 

PRINT AT E,9:D 

GOTO 90 

LET D=Ø 

LET B=B+D 

PRINT AT E,9;B 

IF B> —100 THEN PRINT АТ E+1,7; 

' YOU WON Ще 

PRINT AT E23; _" 

LET H=INT (RND:6)+1 

LET F=F+1 

IF H=1 THEN GOTO 340 

LET C=C+H 

PRINT AT Е,23:С 
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300 
310 
320 


330 
340 
350 
360 
370 
380 


FOR Ј=1 TO 20 

МЕХТ Ј 

IF (В-А-С<30 AND C» 13 AND F>2 AND 
B<86) ОВ А+С> - 100 THEN GOTO 350 

СОТО 240 

LET С-0 

LET A=A+C 

PRINT AT E,23;A 

IF A» —100 THEN PRINT АТ E +1,22; 1811.0) 
GOTO 50 





N 
=r 





Tic-Tac-Toe 


This is an elaborate, and hard to beat, Tic-Tac-Toe program. 
You have the option of going first or second. You are the O’s, 
the computer is the X’s. Wait for the board to change before 
entering your move, which you do simply by entering the 
number (one to nine) of the square into which you want to 
move. 

Note how this program makes use of the TS1000’s ““string- 
slicing”” ability (for example, lines 20 to 40). Play this game 
in SLOW mode. The program does not say who has won the 
game, so each game has to be played out completely. 


Program 21: Tic-Tac-Toe 


10 GOTO 1000 

20 PRINT АТ 3,11;A$(1 TO 11) 

30 PRINT АТ 7,11:А%(13 ТО 23) 

40 PRINT АТ 11,11;A$(25 ТО 34) 

50 RETURN 

60 GOSUB 20 

70 IF D=9 THEN GOTO 1000 

80 IF D=3 АМО (A(1)=1 AND А(9)-1 OR A(3)= 1 
AND A(7)=1) THEN LET В%-С% 
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90 
95 
100 
110 


120 
130 
140 
150 
155 
160 
165 
170 
180 
190 


200 
210 


220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


LET D=D+1 

FOR E=—2 ТО 2 STEP 4 

FOR A=1 ТО 3 

IF A(A#3—-2)+A(Ax3—1)+A(As3)=E THEN GOTO 
190 

IF A(A)+A(A+3)+A(A+6)=E THEN СОТО 210 
NEXT A 

IF A(1)+A(5)+A(9)=E THEN GOTO 230 

IF A3) +A(5) - A(7)=E THEN GOTO 250 

NEXT Е 

FOR C=1 TO 9 

LET B=VAL ВУЧО) 

IF A(B)=Ø THEN GOTO 260 

МЕХТ С 

LET B=(A*3—2)+(NOT А(А*3 —2)) +-(А#3—1) ж 
(NOT А(А#3 —1)) +(A#3)(NOT А(А»3)) 

GOTO 260 

LET B=Ax (NOT А(А)) - (A3) « (NOT 
A(A+3))+(A+6)*(NOT А(А +6)) 

GOTO 260 

LET В- (МОТ А(1)) +5 (NOT А(5)) +9« МОТ A(9)) 
СОТО 260 

LET В-3» (МОТ А(3)) + 5» МОТ А(5)) + 7+ МОТ A(7)) 
LET A$(B+4—2)="X" 

LET А(В)--1 

GOSUB 20 

IF D=9 THEN СОТО 1000 

LET 7$ -INKEYS$ 

IF 2$=""" THEN GOTO 300 


320 
330 
340 
350 
1200 


1210 
1020 
1230 
1040 
1050 


1060 
1070 
1080 


1090 
1100 
1110 
1120 
1130 
1140 
1159 
1160 
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LET A$(VAL Z$*4—2)-"O" 

LET A(VAL Z$)=1 

LET D=D+1 

GOTO 60 

LETA=" 1 M > Ш з Ша B 5 E 
6 7 Ш з то" 

LET В%-”573914826” 

IF RND < .2 THEN LET B$= 159378246” 

LET С%-”431978625” 

DIM A(9) 

PRINT АТ 16,2;”DO. YOU. WANT. TO. GO. 
FIRST? (У/М)" 

LET Y=INKEY$ 

IF Y$="" THEN GOTO 1060 

PRINT AT 16,23 0. 
FOR A=1 TO 6 

PRINT АТ A:211;.—.H Ы 

МЕХТ А 

PRINT AT 5, 11; MAN” 
PRINT AT 911 "MAR Ни НЕ 
LET 0-0 

IF Y$="Y" THEN GOTO 280 

GOTO 60 


Alternate Version 


Here is another version of Tic-Tac-Toe showing a completely 
different programming approach. A comparison of the two 
programs is very interesting. 
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Unlike many programs of this game, it is possible to beat 
this version occasionally, although a draw or a loss is the most 
probable outcome. Some moves will be made more or less 
instantly, while others will take ten seconds or so. The strategy 
is to look for a winning move, or if no winning move is 
possible, look for a possible winning move by the player and 
take action to block it if found. If such a move is not found, 
a move 15 chosen at random. Тће program will know when a 
game has been won or drawn. 

All responses are detected using INKEY$, so you do not 
need to press ENTER. All responses should consist of one 
character. You will be asked, at the beginning, if you want to 
go first. If you do, press ““Y””, if not “М”. 

Here 15 the numbering system for the board: 


І [2 
718 


О | QN | S 


A discussion of the program follows the listing. 


Program 21A: Tic-Tac-Toe 


2 RAND 
5 LET X=Q 
10 DIM B$(9) 
12 PRINT AT 0,0;"DO. YOU. WANT. FIRST. 60 _ 
(Y OR №)?” 


14 LET AS=INKEY$ 
16 IF A$<>"Y" AND A$< >”N” THEN GOTO 14 
18 CLS 
2) PRINT AT 5,13; 1882883" TAB 13088 
HE: TAB 13; /4 5 б”: TAB 13;" 
ЖЫ БЕКЕ ЊЕН. TAB 13;/7 5 or 


25 
30 
40 
50 
60 
70 
80 


85 

90 
100 
110 
T3 
112 
114 
116 
120 
130 


140 
150 
160 
170 


180 
190 
193 
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IF A$="N" THEN GOTO 100 

PRINT AT 12,12;"YOUR. GO" 

LET A$=INKEY$ 

IF А «'1" ОВ A$» "9" THEN GOTO 40 

IF B$ (CODE А%-28)>” " THEN GOTO 40 
LET B$(CODE А%-28)-”О” 

PRINT AT CODE "EE E IP ITI «i s" (CODE 
A$—28), CODE "$?)$?)$?)'" (CODE А%-28);В% 
(CODE А5- 28) 

LET A$="000" 

GOTO 300 

REM *+TS1000 MOVE" 

PRINT AT 12,12:7 MY. GO...” 


IF B$(5)=" " THEN LET F=5 
IF В%(5)-” " THEN GOTO 240 
FOR В=1 TO2 


LET C$-"XO"(B) + "XO"(B) 
FOR A-1 TO 70 STEP 3 

LET A$="15919559135757337512313223145656 
446578979898714747117425828558236939669 
3"(A TO А+2) 

LET D=CODE А%-28 

LET E=CODE А%(2)-28 

LET F=CODE А5(3)-28 

IF B$(D) +B$(E)=C$ AND В%(Ғ)-” " THEN 
GOTO 249 

NEXT A 

NEXT B 

LET A$="" 
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195 
197 
198 
200 
240 
250 


260 
300 


304 
307 
310 


320 


330 


340 
350 





ЕОВ А=1 ТО 9 

IF B$(A)=”. " THEN LET A$=A$+CHR$ А 

NEXT A 

LET F=CODE AS(INT (RND+LEN A$) + 1) 

LET BS(F)="X" 

PRINT AT CODE "E E E PPT а а >,” 

(F), CODE ”'$?)$?)$?)”(F);B$(F) 

LET A$= "XXX" 

IF B$ ( TO 3)=A$ OR B$(4 TO 6)=A$ OR 

B$(7 TO )-А% OR B$S(1)+B$(1)+B$(4)+B$(7)=A$ 
OR B$(2)+B$(5)+B$(8)=A$ OR B$(3) +B$(6)+B$(9) 
=A$ OR B$(1)+B$(5)+B$ (9)=A$ OR B$(3) 

+ B$(5)-- B$(7) - A$ THEN GOTO 320 

LET X=X+1 

IF Х=9 THEN СОТО 350 

GOTO (30 AND A$="XXX")+(100 AND 


A$="000" 

IF A$="000" THEN PRINT AT 12,12;"YOU. — 
WIN" 

IF Аф- “ХХХ” THEN PRINT AT 12,12; | WIN" 
STOP 


PRINT AT 12,12; "А DRAW" 





т NIN = Lan YOU NIN 
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Programming Notes 


Line 2: Sets RAND so that a fresh series of random numbers 
is generated. 

Line 5: Initializes the value of X, the variable which counts 
the numbers of moves made. This is useful for determining 
when a draw occurs. 

Line 10: Initializes B$ to 9 spaces. B$ is a string array 
which contains the state of the board. The element subscripts 
correspond to the layout of the board on screen, e.g. B$(5) 
corresponds to the central square of the board on the screen. 

Line 12: Asks the player who goes first. 

Line 14: Scans keyboard, stores in AS. 

Line 16: Continues scanning keyboard until a Y (for YES) 
or an N (for NO) is detected, then carries on accordingly. 

Line 18: Clears the question from the screen. 

Line 20: Prints the initial state of the board with the num- 
bers to tell the user which keys to press for each position on 
the board. 

Line 25: If the player declined first go (player pressed N) 
jumps to line 100 for the computer to move. 

Line 30: Prints message saying it’s the player’s turn. 

Line 40: Scans keyboard to find player’s move and stores 
in A$. 

Line 50: If A$ is not a valid move, i.e. the key pressed 
is not in the range 1 to 9 then continues scanning until a 
suitable character is returned. 

Line 60: If the square on which the player wants to put 
an O already has an O or an X then re-enters. 

Line 70: Marks an O in the square chosen by the player 
(makes the appropriate element of B$ ап О). 

Line 80: Prints the move. The X and Y co-ordinates for 
the PRINT AT statement are obtained by extracting the CODE 
of the elements of the string literals in the PRINT AT state- 
ment. 

Note how (CODE А5—28) is used to decode the strings 
into numbers rather than using VAL Аў: the reason is that 
CODE A$ —28 is about 50% faster than VAL, and while it 
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doesn't make much difference in this particular example, when 
we get into a long loop later on we'll begin to see the differ- 
ence. 

Line 85: Sets A$ to three O’s for the win-checking rou- 
tine. A$ will also act as a flag to tell the routine where to 
come back to if the game does not end. 

Line 90: Sends the program to a routine at line 300 to see 
if the game has been won or drawn. Why not GOSUB? We 
may not return if the game is won or drawn, so the GOSUB 
address will be left on the stack (all right, the RETURN ад- 
dress) and they will pile up after a few games. Since there is 
not much memory left out of 2K, if you are using a 2K ma- 
chine you will soon run out of free memory and will have to 
go through the long-winded process of ending RETURN man- 
ually to clear up the GOSUB stack. So we use the GOTO 
facility instead. 

Line 100: A REM statement to identify the computer- 
move part of the program. If you are going to make any 
changes to the program that will require extra memory space, 
this line will be the first target for deletion. 

Line 110: Displays the fact that it’s the сотршег 5 turn. 

Lines 111 112: If the center square 15 available, that 15 
the computer’s move. F is a flag saying which move the com- 
puter has chosen to make. It is used by the computer-move- 
printing routine later on. 

Lines 114 & 190: Consist of the routine which will either 
block an opponent’s winning chance or connect up a winning 
line for the computer. It looks at the board and if it finds two 
identical characters in a line the time for action has arrived. 
To sort out whether it is a possible winning move for the player 
or the computer the loop is executed twice, first looking for 
two X’s (computer) and second looking for two O’s. To pre- 
vent the two identical characters spotted being two spaces, C$ 
indicates the character to be searched for. A$ is a string of 
three characters extracted from the string constant in line 130. 
The first two characters specify which two squares to check, 
and if the result is positive the third character of A$ says where 
to put the computer’s X. 
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Lines 140, 150 & 160: Convert the characters from A$ 
into numbers. Note how CODE A$ —28 is used rather than 
VAL А5 because of speed requirements. This can only be 
used with numbers of course. Numeric statements cannot be 
decoded in this way nor can variables. 

Lines 193 to 240: If a winning move or blocking an op- 
ponent’s move is not possible, a move is made at random by 
gathering together all the squares without an X or an O and 
choosing one of them at random. 

Line 250: Prints the move. 

Line 260: As line 85, but sets A$ for three X’s. 

Line 300: Checks for a winning situation and if found, 
goes to the game-end routines. 

Line 304: Increments move counter. If this reaches 9 no 
further moves are possible since there are only nine squares 
in the board, and the game is a draw unless there is a winning 
combination on the board. 

Line 310: If the game has not come to an end, returns for 
the player’s/computer’s move, which one depends on whether 
AS is “ООО” or “ХХХ”. 

Lines 320 to 350: Print who won, or if neither, announce 
a draw. 


Solitaire 


The object of this game is to be left with only one peg on the 


board, preferably with that peg in the center hole. A peg 15 


removed by jumping over it with another peg. To move a peg, 


enter a three-character string, with the following direction after 


the coordinates of the peg: 


5-To move peg left 


6-To move peg down 


7-To move peg up 


8-То move peg right 


You'll see that the arrows on these keys point in the required 


directions. 


ЗРАКЕ 


= 


> 
v^ 


ми“ 


<. 
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р значак 3 MANTO SUL iin TRE 
Eee 
+ + + ++ + + +Е 
ba = = x 
š PEGS LEFT 
) 5 же 44 
ШШ» + 
nu TE 
ABCCEFGKH TI 





Program 22: Solitaire 


5 


REM "SOLITAIRE" 


15 REM BS р pn р pn pn | ке um ug pg ua gu p pn ue m | жа 


20 
35 


40 
50 


55 


ша] аша | и | | 

REM Е (С) MARK. В HARRISON. ПИ 

REM Бышы m ин ин ши sui ні иш иш не иш не иш ин иш ин иш 
кең тй ст ый 

ВЕМ 

PRINT AT 1,7; "SOLITAIRE';AT 2,7;------ 
PRINT AT 4,6;/THE OBJECT. OF. _THE_ 
GAME. IS. TO. BE. LEFT. WITH. ONLY _ 
ONE. PEG. _ _ AND. PREFERABLY. WITH. 
IT IN. THE. _ .. CENTER. OF. THE. BOARD... 
СА. PEG. IS... REMOVED. BY. JUMPING. - 
OVER. IT. WITH. ANOTHER. РЕС. . TO. 
MOVE. A. PEG, _ ENTER. (AS А 3. 
CHARACTER STRING). ITS. CO-ORDINATES. . 
ЕОЦОМЕО_ВУ:—__________ 5_ТО_МОМЕ _ 
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60 


90 
95 
120 
105 


110 


115 
125 
139 
135 


149 
145 
150 
155 
160 
165 
170 


175 


ЕСЕ з gl ЕНИ ај EEE ж. З 6_ 
TO MOVE. PEG DOWN > 1-2 иа 


TAE у Y Y. X 8 ТО MOVE. РЕВ. 
RIGHT” 

PRINT АТ 17,1;"А 50, ENTER"; AT 19,1; 
"ниб ТО RETURN TO. COMMAND _ 


MODE"," "В" ТО RE-RUN. PROGRAM” 
PAUSE 40000 

DIM M$(3) 

CLS 


PRINT АТ 5,20:"SOLITAIRE’: AT 6,20; FER m m 
AT 9,20;”PEGS. LEFT" 

LET Р=256»РЕЕК 16397 + РЕЕК 

16396 

LET N=124 

FOR |=1 TO 5 

FOR Ј=1 TO 5 

PRINT AT LJ: АТ 1+ 10,); АТ 1,)+ 10; 
"BWAT 1410,J+10; BS" 

NEXT J 

NEXT | 

FOR |=1 ТО 15 

ЕОВ Ј=6 ТО 10 

PRINT AT 1,J;"«' AT Ja” 

NEXT J 

PRINT AT @,|;CHR$ (37+1);AT 1,0;СНВ (37 +l); AT 
16,;CHR$ (37 +); AT 1,16;CHR$ (37--І) АТ 8,8;". " 
NEXT | 
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180 INPUT M$ 

185 IF M$(1)="R” THEN GOTO 100 

190 IF М%(1)-”5” THEN STOP 

195 LET S=P+33*CODE M$(1)+CODE М%(2)-1257 

200 LET A=CODE M$(3) 

205 LET F=S+(66 AND A=34)+(2 AND А =36) – (66 
AND А--35)-(2 AND A=33) 

210 IF PEEK S< >23 OR PEEK ((S+F)/2)< > 23 OR 
PEEK F< >Ø THEN GOTO 180 

215 POKES Ø 

220 POKEF,23 

225 POKE (5--Ғ)/2,0 

230 LET N=N-1 

235 PRINT AT 10,20;:"'> “Ni” <<.” 

24) IF М> =2 THEN GOTO 180 

245 PRINT AT 21,0;"PRESS. ENTER. TO. PLAY _ 
AGAIN" 

250 INPUT M$ 

255 IF M$="" THEN GOTO 100 

260 STOP 

Sample Run 
SOLITAIRE 


THE OBJECT OF THE GAME IS 


TO BE LEFT WITH ONLY ONE PEG 
AND PREFERABLY WITH IT IN THE 
CENTER OF THE BOARD. A PEG IS 
REMOVED BY JUMPING OVER IT WITH 
ANOTHER PEG. TO MOVE A PEG, 
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ENTER (AS А 3 CHARACTER STRING) 
ITS CO-ORDINATES FOLLOWED BY:- 
5 ТО MOVE PEG LEFT 
6 TO MOVE PEG DOWN 
7 TO MOVE PEG UP 
8 TO MOVE PEG RIGHT 


ALSO, ENTER 


"6" ТО RETURN TO COMMAND MODE 
"А" TO RE-RUN PROGRAM 


2| 
Part 


UTILITY AND 
APPLICATIONS 
PROGRAMS 





23 
Address Book 


The days of pencil and paper are past. At least, that's the 
impression given by this program, which enables you to save 
your friends” names and addresses within the program where 
they can be either displayed, listed, printed out, or saved on 
tape for future reference. The program is menu-driven. 


Program 23: Address Book 


5 
15 
20 
25 
30 
40 
45 


REM ”ADDRESS BOOK” 
SLOW 

DIM N$(15) 

DIM A$(51,95) 

LET N=1 

CLS 

PRINT AT 5,0; /PRESS:!,,, mme" TO. LIST 
ALL NAMES. IN. BANK! An" TOU 
DISPLAY  ADDRESSES", "Sr" TO. SAVE 
ОМ. ТАРЕ "С" TO. RETURN. TO. 
COMMAND. _МООЕ","""Е"" TO ENTER _ 
NAME. TO. BANK”, "ОТО TO. DELETE 
NAME. FROM. BANK",""""P'" ТО. PRINT. 
ADDRESS” 
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50 

55 

60 

65 

70 

19 

80 

85 
100 
105 
110 
115 
120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
300 
305 
310 


IF ІМКЕҮ%-”Е” THEN GOSUB 100 

IF INKEY$="D" THEN GOSUB 300 

IF INKEYS —"P" THEN GOSUB 500 

IF INKEYS —"A" THEN GOSUB 700 

IF INKEY$="L" THEN GOSUB 900 

IF INKEY$="C" THEN STOP 

IF INKEY$=”S” THEN SAVE “ADDRESS” 
GOTO 45 

CLS 

PRINT АТ 5,0;"ENTER:”,,,.“NAME_ _ _ _ _ _ a 
INPUT AS(N, TO 15) 

PRINT А%(М, ТО 15), "ADDRESS... _”; 

INPUT AS(N, 16 ТО 35 
PRINT А%(М,16 TO 35 
INPUT А%(М,36 ТО 55 
PRINT AS(N,36 ТО 55), "COUNTY п, 


) 
), “TOWN 2 
) 
) OOUNTY. э mn 
INPUT AS(N,56 ТО 67) 
), 
) 
), 


as «шеше: — == 9 


PRINT AS(N,56 TO 67 
INPUT А%(М,68 ТО 75 
PRINT А%(М,68 ТО 75),"РНОМЕ _ _ — п. 
INPUT AS(N,76 TO ) 

PRINT AS(N,76 ТО ) 

LET N=N+1 

IF INKEY$=""" THEN GOTO 175 

CLS 

RETURN 

CLS 

PRINT АТ 5,0;"МАМЕ TO. BE. DELETED?" 
INPUT N$ 


"POST, CODE. 5 


315 
320 
325 
330 
335 
337 
340 
345 
350 
355 
500 
505 
510 
515 
520 
525 


527 


530 
535 
540 
545 
550 
700 
705 
710 
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FOR 1-1 ТО 50 

IF N$< >AS(I, TO 15) THEN СОТО 345 

FOR J=| TO 50 

LET A$(J]=AS(J+1) 

NEXT J 

LET N=N-1 

СОТО 350 

МЕХТ | 

CLS 

RETURN 

CLS 

PRINT АТ 5,0; "МАМЕ ENQUIRY?” 

INPUT N$ 

FOR |=1 ТО 50 

IF АФП, TO 15) < > № THEN СОТО 535 

PRINT ,,А%(І, TO 15), A$(1,16 ТО 35),A$(1,36 ТО 
55) A$(1,56 TO 67),,A$(1,68 TO 75), A$(,76 TO 95) 
LPRINT АФП, TO 15), A$(,16 ТО 35),А%(,36 TO 
55), A$(1,56 ТО 67), A$(,68 TO 75), A$(,76 ТО 95) 
СОТО 540 

МЕХТ | 

IF ІМКЕҮ%-”” THEN СОТО 530 

CLS 

RETURN 

FOR |=1 TO М—1 

CLS 

PRINT AT 7,0:AS(I, TO 15),,A$(I,16 TO 35),A$(1,36 
TO 55),A$(I,56 TO 67), A$(,68 TO 75),,А%(! 76 ТО 
95) 
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715 
720 
725 
730 
900 
905 
910 
915 
920 
925 
930 


IF INKEY$="" THEN GOTO 715 
NEXT | 


CLS 

RETURN 

CLS 

FOR 1-1 TON 


PRINT АТ 20,0:А5(, TO 15) 
SCROLL 

NEXT | 

CLS 

RETURN 


yon 
Resistor Gode 


This program determines what value resistors have, from their 
color codes. The program explains itself as its runs. 

When your first press RUN, you will be offered a menu: 

“6” to return to command mode 

“L” to learn what it is 

“С” for color codes 

“Е” for examples 

“У” to convert value to resistor code 

“К” to convert resistor code to value 


““Н” for the menu 


The program is self-explanatory from this point. 


Program 24: Resistor Code 
1 REM Pee FP m m KER EN 


u (C) MARK HARRISON (E 
ШІ а а ue imt не йа аа Ба > (i 
| RESISTOR CODE СВ 
Шы ше Em п нын кы келі С нан НА пий ESE тшй ный к=н Боа Han Пау ги кун тЙ 
2 REM 
4 SLOW 
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5 


10 


15 


20 
25 
30 
35 
40 
45 


___ &8 &g Bl _ 
Мит ы ес n BEL EEE 


....1D 8 & B. En“ __ 
алыл лғ асы тата кей | а | am am ше ча 


LET "НЕВЮТОН. -CODE L o sh LL LL е 
ONU I ара. іш] и | и и | m | а | | шш 


LET A$-"BLACK. BROWN. RED. _ _ 
ORANGEYELLOWGREEN. BLUE. _ 
VIOLETGREY. . WHITE...” 

DIM C$(1Ø,6) 

FOR |=1 TO 10 

LET С%()-А%(»6-5 ТО) 

МЕХТ | 

CLS 

PRINT АТ Ø,5:S$;AT 3,0; "ЕМТЕВ: АТ 5,0; 18!" 
СТО. RETURN. ТО. COMMAND... 

MODE, ДО TO LEARN WHAT. IT. 
битие" FOR COLOR. CODES, И "ЕТ" 
FOR. EXAMPLES,”, 

"Mi" TO. CONVERT. VALUE. TO _ 
RESISTOR. CODE,",,"""""R'" TO. CONVERT... 
RESISTOR CODE. ТО — 

VALUE, my” FOR. MENU...” 


50 
55 
60 
65 
70 
75 
80 
85 
100 
105 


110 
115 


120 


125 
130 
135 
140 
150 
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INPUT 05 

IF Q$="5" THEN STOP 

IF Q$="C" THEN GOSUB 200 

IF О5="Е" THEN GOSUB 300 

IF Q$="V" THEN GOSUB 500 

IF Q$="R" THEN GOSUB 600 

IF Q$="L" THEN GOSUB 100 

GOTO 40 

CLS 

PRINT АТ Ø,5;S$;AT 2,5;”THE. VALUE. OF _ 


RESISTORS ARE. MARKED. BY FOUR _ 
COLORED. BANDS... .. WHICH. INDICATE _ 
THEIR RESISTANCE. VALUE. AND. THEIR 
TOLERANCE.” 

PRINT AT 6,0;R$ 

PRINT AT 120” _ ___ _ „ THE...FIRST.. BAND. 
INDIGATES THE FIRST. FIGURE. OF. THE... 
VALUE, THE. SECOND. BAND. INDICATES. . 
THE. SEGOND. FIGURE. OF... THE VALUE ` 
AND. THE. THIRD BAND. INDICATES. HOW. 
MANY. ZEROS. THE. VALUE. CONTAINS." 
PRINT АТ 19,5;"THE. FOURTH. BAND . 
INDICATES... THE. TOLERANCE,. LE. HOW 
ACCURATEIT. 15.” 

INPUT Q$ 

GOSUB 200 

IF Q$="M" THEN GOTO 150 

GOSUB 300 

GOTO 40 
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200 
205 
210 
215 
220 
225 


230 
235 
240 


250 
255 


260 


265 


CLS 

PRINT S$:AT 1,18; "COLOR. VALUE" 

FOR |=1 TO 10 

PRINT AT 1+2x*1, 18:C$(I: TAB 27:1-1 

NEXT | 

PRINT AT 5,0:”_ _ _ THE. FIGURE”, “THAT | 


EACH OF", ”THESPIRST THREE", 
"СОГОНЕО. BANDS” "REPRESENTS— 
IS GIVEN БҮ TISS, "TABLE; 
PRINT AT 15,3;"THE_UNIT_OF”,, 
"RESISTANCE. _15",,"ОНМ5." 


INPUT О5 
IF Q$=""M" THEN GOTO 270 
CLS 


PRINT 5%;АТ 44) ТНЕ TOLERANCE. OF. THE — 
понире" a бен RESISTOR. IS. GIVEN BY _ 
ТЕН oti x FOLLOWING. COLOR. 


FOURTH. ВАМО:” 
PRINT АТ 10,0;"COLOR... _ TOL. 


(PERCENTAGE)”,,“BROWN. _ _ _ _ = 
ӘНЕГ с. o oot сч gu АЮ. a 
5” "SILVER. 1Ø" 


PRINT AT 17,3; "THE TOLERANCE. BAND. 18. 
OFTEN ABSENT. FROM. THE. _ 
FAE ты ee та LP RESISTOR. IN- THIS 
Ek а пое ДРЕА ASSUME. A. 20.. 


TOLERANCE." 


270 
275 
300 
305 


310 
315 


320 
325 


330 


335 
340 
345 


350 
355 
360 


365 


370 
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INPUT 05 

RETURN 

CLS 

PRINT АТ 0,5:55;АТ 

S EXAMPLES" n. U mma 7 

PRINT AT 5,0;8% 

PRINT АТ 13,Ø;”BAND 1... BAND... 2 _ 
BAND. 3... BAND. 4" 


INPUT 05 

PRINT АТ 15,0;"GREEN. _ _BLACK_ _ _ 
BLACK. ... GOLD” 

PRINT AT 17,256. X. 1 = 50. 


OHMS.';AT 18,2;"5 PERCENT _ 
ТОГЕНАМСЕ. "АТ 20,0; "PRESS. _ 
ENTER”, "ОВ ENTER "М" FOR 
MENU.” 

INPUT О5 

IF Q5="M" THEN GOTO 420 

PRINT AT 150: "BLUE... GREEN — _ 
YELLOW =. НЕО а." 

PRINT AT 17,2;"65 X. 10000. = 650,000 _ 
OHMS.'^AT 18,2;"2 PERCENT. TOLERANCE.” 
INPUT О5 

IF О5="М" THEN GOTO 420 

PRINT АТ 15,0;"GREY. — _ — VIOLET... 
GREEN... — _ SILVER” 

PRINT AT 17,2;"87 X. 100000 --8,700,000 _ 
ОНМ5. "АТ 18,2:710 _РЕНСЕМТ _ 
TOLERANCE. _" 
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375 
380 
385 


390 
395 
400 
405 
410 
415 
420 
500 
505 
510 
515 


520 
525 


53Ø 
535 


540 


INPUT 05 

IF Q$="M" THEN GOTO 420 

PRINT AT 15,0;"ВАСК _ _BROWN_ _ _ 
BLACK. BROWN." 

PRINT AT 17,2:"Ø1 X. 1 = 1 ОНМ ___ 
SEE See tee "АТ 18,2:71 PERCENT. 
TOLERANCE. n 

INPUT Q$ 

IF Q$="M" THEN GOTO 420 

PRINT AT 15,0:”YELLOW. ORANGE. _RED_ 
____ SILVER” 

PRINT AT 17,2;"43. X. 100 = 4300 _ОНМ5. _ 
_ БАТ 18,2;10.. PERCENT. TOLERANCE.” 
INPUT 05 

RETURN 

CLS 

PRINT АТ 0,5:5%;АТ 3,0;’TO_CONVERT_A_ 
VALUE. TO. RESISTOR. . COLOR. CODE." 
PRINT АТ 6,0;"ЕМТЕВ. VALUE. OF. RESISTOR _ 
(OHMS)” 

INPUT V$ 

IF LEN V$<1 OR LEN V$>11 THEN GOTO 515 
PRINT AT 8,0:Н%;АТ 15,4;V$;” _ 

OHMS.";AT 17,0;”_ _ _BAND_1_. _BAND _ 
2 . BAND. 3” 

IF LEN V$=1 THEN LET V$="Ø"+V8 

PRINT" _ _ ";CS(VAL V$(1)--1);". 
""CS(VAL V$(2)+1);”_ — '5CS(LEN V$— 1) 

PRINT AT 21,4;"ENTER. ""M"" FOR. MENU." 


545 
550 
555 
600 
605 


610 
615 
620 


625 
630 
635 
640 
645 
650 
655 
660 
665 
670 
675 
680 
685 


690 
695 
700 
705 


Resistor Code / 131 


INPUT 05 

IF Q$ « > "M" THEN GOTO 500 

RETURN 

CLS 

PRINT АТ 0,5:55;АТ 3,0:/ТО CONVERT. A _ 
RESISTOR COLOR. -r — GODE. ТО А 
VALUE.'^AT 50:85 

DIM D$(3,6) 

FOR 1-1 TO З 

PRINT АТ 1Q+2+x1,Q;"ENTER. COLOR. OF.. 
BAND. “ар” 46 

INPUT 050) 

PRINT 050) 

МЕХТ | 

DIM МЗ) 

FOR |=1 TO 3 

FOR Ј=1 TO 10 

IF D$(l) < > C$(J THEN СОТО 670 

LET N()=J-1 

GOTO 680 

NEXT J 

GOTO 690 

NEXT | 

PRINT AT 18,4; "VALUE .“; NO); Ма); 
"0000000000"(1 TO N(3);". OHMS." 

PRINT AT 21,4;"ENTER. ""M"" FOR. MENU." 
INPUT Q$ 

IF Q$ « > "M" THEN GOTO 600 

RETURN 
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Sample Кип 


RESISTOR CODE. 
ass вета са usa на аа oa mas 
EXAMPLES. 






gon = 54 == 
1 = 3 4 
BAND 1 BAND 2 BAND З BAND 4 


BLACK BROWN BLACK BROWN 


01 X 1 = 1 OHM. 
1 PERCENT TOLERANCE. 


PRESS ENTER 
OR ENTER "M" FOR MENU 


Сл 


Exam Results 


This program will allow pupils’ names and exam results to be 
entered. Then, the program prints out the pupils’ names in the 
order of their results, with their result written as a percentage 
and as a grade. 

You first enter the name of the pupil, then the result in 
the exam. After the last result, enter STOP (shifted-A). If an 
error is made, enter ““N”” when the message CORRECT? ap- 
pears. This will allow you to re-enter that particular piece of 
information. Results may be saved on tape, and when the tape 
is reloaded, the results can be accessed instantly. 


Program 25: Exam Results 


5 SLOW 
10 LET G$="A+A А-В+В В-С+С С-0+0 
О-Е+Е Е-” 


15 DIM N$(150,22) 

20 DIM M(15Ø) 

25 PRINT АТ 0,5: "ЕХАМІМАТІОМ. GRADER.";AT 
1,5, на аи ри | и ая ри аа | а | о [и | пи | а | а и | Ба | а m 
"EAT 2,5; "THIS PROGRAM. WILL _ 
ALLOW. _ PUPILS. NAMES. AND. 
THEIR EXAM. _ _____ RESULTS. TO. ВЕ. 
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ЕМТЕНЕО_АМО_ТНЕМ_ _PRINTS_OUT_ 
THE PUPILS. NAMES. ИУ — THE... GRDER.. 
ОҒ THEIR RESULTS,  WITHTHEIR RESULT 
WRITTENL HL аа ы 
PERCENTAGE. AND. A. GRADE.” 

30 PRINT AT 9,5;"ENTER. FIRST. THE. МАМЕ. 
OF. THEPUPIL. AND. THEN... THEIR 
RESULT IN .. THE. EXAM — ... AFTER. THE 


LAST. НЕӘІШІ ТЕКТЕН, “4”! STOP. ."" (SHIFT _. 
А). -ІР ANERROR. IS. MADE,. ENTER... 
ET WHEN. CORRECT - 
APPEARS." 


35 PRINT AT 15,5;"RESULTS. MAY BE.. 
HASAVED"" ON. ТАРЕ SAND. WHEN 
"“"RE—LOADED””” САМ. BEOBTAINED. BY. 
CALLING РОВ THE. MENUIMMEDIATELY.” 

40 PRINT АТ 19,0;"ЕМТЕН: “АТ 20,0;""""""""' _ _ 
TO. INPUT NAMES. AND. 
RESULTS" "aem FOR. MENU? 


45 INPUT 05 

50 IF CODE Q$=5Ø THEN GOTO 260 

55 CLS 

60 PRINT АТ 10,8; "WHICH. .GRADING. . 
SYSTEM SAT TZO ENTER: TAT FOR... 
АВС" BF. FOR... ABLE" 

65 INPUT Q$ 


67 LET G=9+(6 AND Q$="B") 
70 CLS 


75 


80 
85 
90 
95 
100 
105 
110 
115 
120 
125 
130 


135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 


Exam Results / 135 


PRINT АТ 10,0; "ЕМТЕВ. MAXIMUM. RESULT. _ 
IN EXAM" 

INPUT M$ 

PRINT AT 12,10;М$;АТ 14,8;"CORRECT?" 
INPUT 05 

IF CODE Q$=51 THEN СОТО 70 

LET M=INT ABS VAL M$ 

FOR |=1 TO 150 

CLS 

PRINT AT 9,0; "ЕМТЕВ. NAME. OF. PUPIL MI 
INPUT NS() 

IF CODE N$()=227 THEN GOTO 170 

PRINT AT 11,0:М%():АТ 14,0;"ENTER. PUPILS. - 
ЕХАМ. RESULT”: 

INPUT R$ 

PRINT АТ 16,0:R$:AT 19,0: "СОВВЕСТ?” 
INPUT 05 

IF СОРЕ Q$=51 THEN СОТО 110 

LET M(N)=INT (VAL R$+1ØØ/M) 

LET N=| 

NEXT | 

FAST 

FOR J=2 TO N 

LET T$-N$(J) 

LET T-M(J) 

FOR |=J-1 TO 1 STEP —1 

IF М() Т THEN GOTO 215 

LET N$(I--1)- NS(I) 
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205 LET M(I+1)=M() 

210 NEXT | 

215 LET N$(I--1)- T$ 

220 LET M(I+1)=T 

225 NEXT J 

230 LET N$(1,21 ТО 22)="А+" 

235 LET K=1 

240 ЕОВ!-2 TON 

245 IF I=K#N/G AND M()« > М(І- 1) THEN LET 
K=K+1 

250 LET N$(1,21 TO 22)=G$(2+K—1 TO 2:K) 

255 NEXT | 

260 CLS 

265 SLOW 

270 PRINT АТ 4,Q;”PRESS!AT 6,0;""С"" FOR. 
PRINTED. COPY'^AT 7,6;"""р"" ТОС 
DISPLAY. RESULTS"^AT 8,0;"""М""_ТО_ 
RETURN TO. COMMAND. МОРЕ'-АТ 9,0; 
ив" TO. RE-RUN. PROGRAM"; 
AT 10,9;"""""S"" TO. SAVE. RESULTS" 

275 PAUSE 40000 

280 LET Q$=INKEY$ 

285 CLS 

290 IF Q$="M" THEN STOP 

295 IF Q$="R" THEN RUN 

300 IF Q$="S" THEN SAVE "ЕХАМ" 

305 IF 05< > О” THEN GOTO 365 

310 FORI=1 TON 

315 PRINT l; TAB 3;NS(); TAB 27; M() 


320 
325 


330 
335 
340 
345 
350 
355 
360 
365 
370 
375 
380 
385 
9999 
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IF |< >15*INT (1/15) THEN GOTO 345 
PRINT АТ 18,0;"PRESS. ENTER. _ _”;АТ 
20,0; "ОН. ENTER ANY. CHARACTER ТО. 
RETURNTO. MENU” 

INPUT О5 

IF Q$ « >”” THEN GOTO 260 

CLS 

NEXT | 

PRINT, TAB 7;"'жж____ жж____ же ж” 
INPUT 05 

GOTO 260 

IF О$ < > "С" THEN GOTO 260 

FOR |=1 TO N 

LPRINT 1; TAB 3; NS(I); TAB 27; МІ) 

NEXT | 

GOTO 260 

FAST 


APPENDIXES 
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Speeding Up 
Programs 


Several of the methods used to save space on the T/S 1000 
slow down a program, and you may well find it necessary at 
times to sacrifice memory usage in the interests of maximum 
speed. 

The difference in run times for some of the programs 
which follow are marginal and may not be noticed in a short 
program. However, when you have a long program or routine 
with many loops, you may be surprised to see how much faster 
a program runs when written for speed. The following sug- 
gestions refer mainly to programs which you'll run in SLOW 
mode. In general, FAST mode does not need such attention, 
but there will be cases where it can be significant. 


Layout 


The most important thing is to ensure that your program listing 
is well laid out. Have parts of the program which are used 
most often at the beginning of the listing, and the parts used 
least often—like the instructions—at the end. There is a simple 
reason for this. Commands like GOTO and GOSUB have to 
search through the program listing to find the line number to 
jump to. Therefore, subroutines and loops at the start of your 
programs will be found and executed more quickly than those 
at the end. To allow you to assign variables and PRINT ш- 
structions at the start of the RUN of a program, make the first 
line something like GOSUB 9000, and then place the initial- 
ization procedures and instructions after 9000. 
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PRINT Statements 


Print characters directly in quotes if you can. Time how long 
these programs take to run: 


14 FOR F=1 TO 350 
20 PRINT "Ø";"Ø"; 
30 NEXT Е 


10 FOR F=1 ТО 350 
20 PRINT 0;0; 
30 NEXT Е 


10 FOR F=1 ТО 350 

20 PRINT CHRS 28;CHRS 28; 

30 NEXT Е 

They should take about nine seconds, eleven seconds and thir- 
teen seconds respectively. The difference between the three 


runs is so marked you should be able to actually see it as the 
program runs. 


Joining PRINT 
Statements 


You may know you can have any combination of PRINT/ 
ТАВ/АТ on any one line of program. However, you may not 
know that programs run faster # the PRINT statements are 
““chained”” than if they are a series of separate program lines. 
To demonstrate this, RUN and time the following two rou- 
tines: 


10 FOR N=1 ТО 100 

20 PRINT AT 10,11; HEÉBIINKING” 
30 PRINT AT 10,11; THINKING” 
40 PRINT АТ 10,11; THINGBANG” 
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5) PRINT AT 10,11; THINKING 
60 NEXT М 


10 FOR N=1 TO 100 

20 PRINT AT 10,11; RESIINKING”;AT 10,11; 
"THIBMKING" AT 10,11; 
"THINISING";AT 10,11; "THINKIBYeI" 

30 NEXT М 


Logical and 
Relational 
Operators 


These can be very slow to evaluate. Anything which evaluates 
to zero takes less time to evaluate than something which eval- 
uates to one. That is, a false statement is executed more quickly 
than is a true statement. And it does not stop there. An expres- 
sion such as IF X THEN . . . is quicker than IF X = 1 THEN 

. and IF NOT X THEN ... is quicker than IF X=Ø 
THEN... 

You will find that IF X< >1 THEN ... evaluates 
slightly more quickly than does IF NOT X = 1 THEN... , 
although the difference is negligible. 

Try to arrange your conditional statements so that they 
usually work out false, and only in a minority of cases does 
something get executed as a result of a conditional statement. 
Obviously, if by rearranging a program to take this into ac- 
count you introduce other factors which slow it down, you've 
wasted your time and energy, but done carefully it can no- 
ticeably speed up programs. 


Storing Pictures 

On Tape 

If you have a program which has a complex graphics display— 
such as sine waves or ellipses—then it may be worthwhile 
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running the program to produce the picture, and have a line 
to SAVE the program on tape and RUN it (a “load and go' 
routine) which does not clear the screen. 'The routine to draw 
a complex display with such things as sine waves can be very 
slow, which can be annoying when running a program from 
scratch. When re-loaded from tape, the picture appears in- 
stantly. 


[2] 
Enlarged 
Gharacters 


The T/S 1000 ROM holds a table of data which is used for 
generating the characters on the display. This table, called the 
character generator, starts at address 7680 (decimal) and ends 
at 8191 (decimal). The table contains a series of zeros and 
ones which correspond to white and black parts of the screen 
for the characters which have codes in the range Й to 63 as 
all others are made up from these characters. Each character 
square on screen is an 8 X 8 square. The table consists of 
eight bytes, each of eight bytes, for each character. Let us 
take the example of the number 0. 0 has a CODE of 28 and 
the dot patterns start at address 7904. Here is how to work 
out where the dot patterns for any character start: 


7680 + (CODE * 8) 
and end seven bytes further on at 
7680 + (CODE « 8) + 7 


If we examine the patterns of zeros and ones at these 
locations in the character generator table we get something 
like this: 


7904 00000000 
7905 00111100 
7906 01000110 
7907 01001010 
7908 01010010 
7909 01100010 
7910 00111100 
7911 00000000 
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If you look at the pattern of ones and imagine them with- 
out the zeros then you get something like this: 


7904 

7905 1111 
7906 1 

7907: | ч 

7908 11 1 
7909 73 

7910 1111 
7911 


which looks vaguely like it is seen normally on screen. The 
way to find out which bits are set and which are not is to 
repeatedly divide by two, then the remainder tells us if a bit 
is set (1) or not (0). 

Here is a program which uses the PLOT facility to create 
characters four times normal size. When you run the program, 
enter one character at a time when the INPUT quotes appear, 
followed by ENTER. The characters are plotted in the top left 
corner of the screen, one at a time. The program runs іп ІК 
of RAM memory. 


Enlarged Characters 


г”, 


30 INPUT A$ 

40 CLS 

50 FORA=0T07 

60 LET P=PEEK (7680--8*CODE A$+A) 

70 FOR В-0 TO 7 

80 ТЕ P-2*INT (P/2) THEN PLOT 7-843-А 
90 LET P=INT (P/2) 
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100 NEXT B 
110 NEXT A 
120 GOTO 30 


This version of the program only allows you to have one 
enlarged character on the screen at any one time. This was 
done to simplify the program. The next version introduces the 
variables DOWN and ACROSS which control where each 
character is plotted on the screen. This version only allows 
characters with CODES in the range 0 to 63. 


Large Characters Using PLOT 





10 LET ACROSS=7 

20 LET DOWN=43 

30 INPUT A$ 

40 LET C=CODE A$ 

50 FOR K- TO 7 

60 LET P=PEEK (7680+C*8+k) 
70 FOR F=Q TO 7 
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80 IF P—2«INT (P/2) THEN PLOT 
ACROSS—F,DOWN—K 
99 LET P=INT (P/2) 
100 NEXT Е 
110 NEXT K 
120 LET ACROSS=ACROSS+8 
130 ТЕ ACROSS>63 THEN LET DOWN-DOWN-8 
135 IF ACROSS>63 THEN LET ACROSS=7 
144 СОТО 30 


Large Characters in Inverse Video 
Using PLOT 


This next version permits you to PLOT large characters using 
characters in the range of CODEs 0 to 63 plus their inverses. 
All keywords/functions etc., can be made up of combinations 
of these. The screen can accommodate up to five rows of eight 
enlarged characters, a total of 40 characters. This is one ad- 
vantage of using PLOT rather than PRINT AT. It means that 
since the characters are only half the size of those generated 
by the program using PRINT AT more may be accommodated 
on screen and look neater. 





10 LET ACROSS=7 
20 LET DOWN=43 
30 INPUT A$ 
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40 LET C=CODE A$ 
45 LET СС-С-(128 AND С» 128) 
50 FOR к-0 то 7 
60 LET P=PEEK (7680+CC=8+K) 
70 FOR Е-0 TO 7 
80 IF С> =128 AND Р-24 МТ (P/2)=Ø THEN PLOT 
ACROSS - F,DOWN - K 
85 IF C<128 AND P—2«INT (Р/2) < >Ø THEN PLOT 
ACROSS - F,DOWN - К 
99 LET P=INT (P/2) 
100 NEXT Е 
110 МЕХТК 
120 LET ACROSS=ACROSS+8 
130 ТЕ ACROSS» 63 THEN LET DOWN - DOWN -8 
135 IF ACROSS» 63 THEN LET ACROSS=7 
149 СОТО 30 


In the above program an extra variable, CC has been in- 
troduced. C is the CODE of the character to be enlarged and 
CC is always the CODE of that character reduced to a number 
in the range 0 to 63 for looking up in the character generator. 
If C is greater than 127, making it an inverse character, this 
is used in lines 80 and 85 to determine which areas are white 
and which are black. 


Enlarged Characters Using PRINT AT 


Let us now use PRINT AT. Although it has the disadvantages 
mentioned above, it allows you to enlarge characters larger 
than PLOT and as we'll see, it will allow you a choice of 
characters other than black on white or white on black. One 
important point to note is the Y coordinates for PLOT and 
PRINT АТ work in the opposite directions. 
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10 
20 
30 
40 
45 
50 
60 
70 
80 


90 


120 
110 
120 
130 
140 


150 


LET ACROSS=Ø 

LET ООММ 0 

INPUT A$ 

LET C=CODE A$ 

LET СС-С-(128 AND С> =128) 

FOR K=Ø ТО 7 

LET Р-РЕЕК (7680+CC=8+K) 

FOR F=Ø ТО 7 

IF P—2xINT (P/2) < >Ø AND С < 128 THEN PRINT 
AT DOWN+K,ACROSS+7-F;? W 

IF P—2«INT (P/2)=Ø AND С> =128 THEN PRINT 
AT DOWN+K,ACROSS+7-F:? BI" 

LET P=INT (P/2) 

NEXT F 

NEXT K 

IF АСВО554 8 31 THEN LET DOWN - DOWN +8 
LET ACROSS=ACROSS+8 AND 

ACROSS +8< =31 

GOTO 30 
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Enlarged Characters with Tone 


And finally here is a version that allows you to print in black 
on grey (or vice-versa for inverses). This does not work too 
well on the printer but is great on a TV screen. To use different 
characters change the PRINT statements in lines 80 and 90. 
Try writing a version that will enable you to select which 
characters to use for characters and for background. (Hint: use 
a string.) 


10 
20 
30 
40 
45 
50 
60 
70 
75 
80 


LET ACROSS=@ 

LET DOWN =ø 

INPUT A$ 

LET C=CODE A$ 

LET СС=С (128 AND С> =128) 

FOR K=Ø ТО 7 

LET Р=РЕЕК (7680 +-СС»8 +К) 

FOR Е=0 ТО 7 

LET PP-P—2+INT (P/2) 

IF (РР< >0 AND С<128) OR (PP=Q AND 
C» =128) THEN PRINT AT DOWN +K, 
ACROSS+7-F;' M" 
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оф IF (РР-0 AND C< 128) OR (PP< >Ø AND 
C» =128) THEN PRINT AT DOWN+K, 
ACROSS 7-F;"B&' 
100 LET P=INT (P/2) 
110 NEXTF 
120 NEXTK 
130 IF ACROSS+8>31 THEN LET DOWN - DOWN +8 
140 LET ACROSS- ACROSS +8 AND 
ACROSS--8 < =31 
150 GOTO 30 


узуу 
MUS LALIA 


x 
RUSSIAS ЕУ Si 
NAA А, 





Remember, you need not be limited to those characters 
already in the ROM character. As long as they take the same 
format (і.е., 8 bytes per character) and you know where they 
start there is no reason why you could not design an alphabet 
of lower case letters and store them in a REM statement at 
the start of the program and PEEK into this to find the data 
required to enlarge the letters. Think of the satisfaction when 
you show your computing friends that your unmodified T/S 
1000 can display lower-case letters. 

You will find that a piece of graph paper or square ruled 
paper is almost essential. To design each character, use an 8 
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Х 8 grid as shown below. ЕШ in those parts corresponding 
to the character required. For each row, add up the numbers 
above each shaded area to give a number for each row, from 
the top down. This will give eight numbers. Follow the ex- 
ample. 


128 B4 32 W 8 4 2 1 

0 

64 

64 

120 

64 + 4 = 68 


64 + 4 = 68 
120 


0 





You now have а series of numbers. 

Now POKE these eight numbers into a REM statement 
long enough to hold them and enter the demonstration listing. 
This has been greatly simplified for the purpose of demon- 
stration. Study the earlier examples if you wish to expand on 
the routine. Here 15 the listing: 


Б 


1 REM RNDRND???? 
10 FOR A=$ TO 7 
20 LET P=PEEK (16514+A) 
30 FOR В-0 TO 7 
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40 
50 
60 
70 


IF Р- 2» МТ (Р/2) THEN PLOT 7—B,43—A 
LET P=INT (Р/2) 

NEXT B 

NEXT A 


This will give you a lower case b four times normal size. 
Experiment with the program and expand it to include more 
characters using earlier examples to help you build up the 
program. 
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Useful 
System Variables 


System variables аге the part of КАМ from 16384 to 16508. 
They tell the computer facts about itself, such as where the 
display file starts, which program line should appear at the top 
of an automatic listing or where the variables area lies in 
RAM. You can make use of this information in your pro- 
grams, or you can alter the values contained in some of them 
to make the Т/5 1000 do certain things, such as timing. You 
can read the values of any of them using РЕЕК, although not 
all of them are particularly useful for the programmer. 


Address Notes 


16384 Controls error report code. If you POKE one 
of these values into 16384 the program stops 
without displaying an error code: 43,70,72, 
73,74,75,76,77,79,81,82 or 89. The program 
is now in command mode: the next key 
pressed is interpreted as a keyword. 


16388/16389 The address of the first byte above the BASIC 
system area, sometimes known as RAMTOP. 

NEW only operates up to the address held in 

RAMTOP, so anything placed above this 15 

not wiped from memory. If this value is less 

(Continued) 
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Address 


16396/16397 


16398/16399 


16400/16401 


16419/16420 


16425 


16434 


16436/16437 


16438 
16439 


Notes 


than 19712 then when CLS is executed, the 
display file is contracted to its minimum size. 


The address of the beginning of the display 
file is contained in this system variable. 
Should not be POKEd. You can also find the 
length of a program listing (i.e., less varia- 
bles, display, etc.) with this. 


Address of PRINT position in display file. 
Can be POKEd so that the PRINT position 
is sent elsewhere. 


Address of the start of the variables area. Use- 
ful for machine code programs where you 
might want to transfer data held in strings/ 
arrays. 

The number of the top program line in auto- 
matic listings. May be changed so that a dif- 
ferent line goes on top. 


Address of next program line to be executed. 
Useful if you want to POKE into a line of 
BASIC in the middle of a program. 


The seed for RND. Useful for games involv- 
ing codes and ciphers generated by RND/ 
RAND since this is the variable set by RAND. 


Frame counter. Bit 15 is 1. Виз Ø to 14 are 
decremented for each frame sent to the ТУ 
down to a minimum of 32768, because of BIT 
15. PAUSE resets BIT 15 to 0 and sets the 
other bits to the length of the pause. Тће 
PAUSE ends when zero is reached. If the 
PAUSE ends early then BIT 15 is usually set 
to 1 again. 


X – coordinate of last point plotted. 


Y — coordinate of last point plotted. 
(Continued) 


Address 
6441 


16442 


16444 to 
16476 
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Notes 


Column number of PRINT position on 
screen. 


Line number of PRINT position. You can 
PEEK this to see if the screen is nearly full 
and if so, execute CLS. 


Printer buffer. Consists of the 32 characters 
of a line plus ENTER. If printer is not used, 
this area may be used as a temporary store for 
information. 
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Decimal to 
Hexadecimal 
Converter 


This is a short program which converts any decimal number 
from zero to 255 which you enter, into hexadecimal notation. 
It may be useful for machine code programmers. 


10 PRINT AT Q,Q;'ENTER. A. DECIMAL. NO. (0. 


ТО. 255)" 
20 INPUT X 
30 SCROLL 


40 IF X<>INT X OR X<@ OR X>255 THEN СОТО 10 

50 PRINT TAB 3-LEN STR$ X;X:”. ОЕСМА 16“: 

60 PRINT CHR$ (28--ІМТ (Х/16)) + CHR$ (28--(Х-ІМТ 
(X/16)*16)): 

70 PRINT ” HEXADECIMAL” 

80 GOTO 10 


Line 10 asks the user for a number in the desired range, and 
this prompt is placed at the very top of the screen so that when 
the display scrolls up the prompt is lost until it is time for 
another input, and the prompt does not appear in the middle 
of the scrolling list of conversion values. Line 40 rejects un- 
wanted out of range values and non-integral values by sending 
the program back to the user input section. Line 50 spaces the 
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number entered tidily so that everything is placed neatly under 
each other. It does this by examining the length of the number 
converted to a string using the STR$ function. Line 60 does 
the conversion. You could save memory slightly if you wanted 
to by combining the three PRINT statements in lines 50, 60 
and 70 into one long PRINT statement. 


"B 


Hexadecimal to 
Decimal 
Converter 


This is a 1K program that converts any hexadecimal value 
from 00 to FF (i.e., single byte) to its equivalent decimal 
value, the reverse function of the preceding program. You may 
like to join the two programs with an option to switch from 
one function to the other. 


10 PRINT AT 0,0;"ENTER. A. HEXADECIMAL. . 


NO.00. TO. FF" 
20 DIM X$(2) 
30 INPUT X$ 
40 SCROLL 


50 IFX$(1)«"0" OR Х$(1) > "Е" OR Х%(2)< "0" OR 
X$(2) > "F" THEN GOTO 10 
60 PRINT X$;" HEX. IS"; 
70 LET X=(CODE X$—28)*16-- CODE X$(2) —28 
80 PRINT TAB 14—LEN STR$ X;X;" DECIMAL" 
90 GOTO 10 
The program is very similar to the previous one; since 
hex values in the range we are interested in always consist of 


two characters, e.g. 00 or FF. So line 20 ensures that X$ (the 
hex string to be converted) always consists of 2 characters. 
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Line 50 checks that X$ characters are permissible hex char- 
acters in the range @ to F. Line 50 prints the first part of the 
conversion and here there is no need for a special spacing 
method as before because the hex value will always be the 
same length and space itself out neatly. Line 70 converts the 
hex characters to a decimal number from @ to 255. This will 
require spacing out, and this is done in line 80 using a similar 
method to the previous program. 
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Special 
Graphics Symbols 


The following graphics symbols are available on the T/S. 
Please note that in this listing each symbol is ““boxed,”' mean- 
ing that all four of its borders are shown even though these 
borders will not appear on the screen. For example, the very 
first symbol listed here will show up on the screen merely as 
a space, and not an empty box, and in listings in this book 1s 
indicated as an underscore (_). It should also be noted 
that letters in inverse video are also accessed via the mode. 








Symbol Mode Key Symbol Mode Key 

Е or Щ SPACE ‘Se SPACE 
å shifted- 1 L4 shifted-Q 
L. shifted-2 M shifted-W 
иш shifted-7 = shifted-6 
n shifted-4 n. shifted-R 
В shifted-5 a shifted-8 
= shifted-T Шы shifted-Y 
p shifted-E m shifted-3 
55: shifted-A Sus shifted-H 
m shifted-D т" shifted-G 
i shifted-S eet shifted-F 


ші 
A 
кә 


Computers 


blek 
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Smart Games 
Programs 
(2K to 16K) 


in 
Timex/Sinclair BASIC 

Graham Charlton * Mark Harrison * Dilwyn Jones 
Edited by Yin Chiu 


BACKGAMMON lil QUATERMASS Ш CHECKERS Ш SUB HUNT ІШ 
GOMOKU Mi ELIZA Ш BIORHYTHMS Е FOUR IN A ROW E 
OTHELLO REVERS! Mi FOX AND GEESE Ш PAIRS lI FOUR FIELD 
КОМО Mi SURF RIDER Il HIGH JUMP Ш MAZE MASTER ІШ 
ZOMBIES ll POKER DICE Ш ANTIMIND Ш NIM Æ HUNDRED UP 
Mi TIC-TAC-TOE Mi SOLITAIRE ІШ 


Here are twenty-two entertaining and intelligent games pro- 
grams in Timex/Sinclair BASIC. They can be run on the T/S 1000 
with a 16K-RAM (random access memory) expansion module as 
well as on any other Timex machine with 16K RAM memory that 
uses Timex BASIC. All of the programs have been fully tested, 
and once entered into your computer, they will provide many 
hours of entertainment and instruction for all members of the 
family. Try them all. 


Graham Charlton, a frequent contributor to numerous British 
computer magazines, spends a good deal of time working with 
the Sinclair computers. 


Mark Harrison is a student and the author of Byteing Deeper 
Into Your ZX81. 


Dilwyn Jones is coauthor of Programming Your ZX SPECTRUM 
and Мазіегіпа The Timex/Sinclair 1000. 


Yin Chiu is coauthor of CRUNCHERS and works as а programmer with 
a large New York bank. mi 
е 
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